added a status message showing when the docs index is loaded
svn: r7991
This commit is contained in:
parent
8d4d43e45f
commit
65f0d01814
|
@ -42,6 +42,7 @@ If the namespace does not, they are colored the unbound color.
|
|||
(define status-coloring-program (string-constant cs-status-coloring-program))
|
||||
(define status-eval-compile-time (string-constant cs-status-eval-compile-time))
|
||||
(define status-expanding-expression (string-constant cs-status-expanding-expression))
|
||||
(define status-loading-docs-index (string-constant cs-status-loading-docs-index))
|
||||
|
||||
(define jump-to-next-bound-occurrence (string-constant cs-jump-to-next-bound-occurrence))
|
||||
(define jump-to-binding (string-constant cs-jump-to-binding))
|
||||
|
@ -90,8 +91,15 @@ If the namespace does not, they are colored the unbound color.
|
|||
(define (printf . args) (apply fprintf o args))
|
||||
|
||||
|
||||
(define xref #f)
|
||||
(define (get-xref) (unless xref (set! xref (load-xref))) xref)
|
||||
(define xref 'not-yet-loaded-xref)
|
||||
(define (get-xref)
|
||||
(when (symbol? xref)
|
||||
(error 'get-xref "xref has not yet been loaded"))
|
||||
xref)
|
||||
(define (force-xref th)
|
||||
(when (symbol? xref)
|
||||
(th)
|
||||
(set! xref (load-xref))))
|
||||
|
||||
|
||||
;;; ;;; ;;; ;;;;;
|
||||
|
@ -1158,6 +1166,7 @@ If the namespace does not, they are colored the unbound color.
|
|||
definitions-text
|
||||
(λ ()
|
||||
(open-status-line 'drscheme:check-syntax)
|
||||
(force-xref (λ () (update-status-line 'drscheme:check-syntax status-loading-docs-index)))
|
||||
(update-status-line 'drscheme:check-syntax status-coloring-program)
|
||||
(parameterize ([currently-processing-drscheme-frame this])
|
||||
(expanded-expression user-namespace user-directory sexp jump-to-id))
|
||||
|
@ -1708,8 +1717,6 @@ If the namespace does not, they are colored the unbound color.
|
|||
require-for-templates
|
||||
require-for-labels)
|
||||
|
||||
|
||||
|
||||
(let ([rename-ht
|
||||
;; hash-table[(list source number number) -> (listof syntax)]
|
||||
(make-hash-table 'equal)]
|
||||
|
|
|
@ -189,6 +189,7 @@ please adhere to these guidelines:
|
|||
(cs-status-coloring-program "Check Syntax: coloring expression")
|
||||
(cs-status-eval-compile-time "Check Syntax: eval compile time")
|
||||
(cs-status-expanding-expression "Check Syntax: expanding expression")
|
||||
(cs-status-loading-docs-index "Check Syntax: loading documentation index")
|
||||
(cs-mouse-over-import "binding ~s imported from ~s")
|
||||
(cs-view-docs "View documentation for ~a")
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user