From 65f0d0181467d7d535dcfa7e2624933eb5d43841 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 13 Dec 2007 15:58:55 +0000
Subject: [PATCH] added a status message showing when the docs index is loaded

svn: r7991
---
 collects/drscheme/syncheck.ss                     | 15 +++++++++++----
 .../string-constants/english-string-constants.ss  |  1 +
 2 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/collects/drscheme/syncheck.ss b/collects/drscheme/syncheck.ss
index 2c90ec4c39..35ed464bc8 100644
--- a/collects/drscheme/syncheck.ss
+++ b/collects/drscheme/syncheck.ss
@@ -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)]
diff --git a/collects/string-constants/english-string-constants.ss b/collects/string-constants/english-string-constants.ss
index 99107d8a80..43b1524c6f 100644
--- a/collects/string-constants/english-string-constants.ss
+++ b/collects/string-constants/english-string-constants.ss
@@ -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")