added a status message showing when the docs index is loaded

svn: r7991
This commit is contained in:
Robby Findler 2007-12-13 15:58:55 +00:00
parent 8d4d43e45f
commit 65f0d01814
2 changed files with 12 additions and 4 deletions

View File

@ -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)]

View File

@ -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")