From 6f962c5f7b8d2470e7b355ac591cdf5ce8da2659 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 21 Feb 2007 19:11:24 +0000
Subject: [PATCH] added message when there are no recent languages

svn: r5654
---
 collects/drscheme/private/unit.ss             | 23 ++++++++++++-------
 .../english-string-constants.ss               |  2 ++
 2 files changed, 17 insertions(+), 8 deletions(-)

diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss
index 6bb1c4a026..799cfa33ef 100644
--- a/collects/drscheme/private/unit.ss
+++ b/collects/drscheme/private/unit.ss
@@ -3337,6 +3337,11 @@ module browser threading seems wrong.
         (init-field frame)
         (define/override (fill-popup menu reset)
           (let ([added-one? #f])
+            (send (new menu-item%
+                       [label (string-constant recent-languages)]
+                       [callback void]
+                       [parent menu])
+                  enable #f)
             (for-each
              (λ (name/settings)
                (let* ([name (car name/settings)]
@@ -3346,12 +3351,6 @@ module browser threading seems wrong.
                              (drscheme:language-configuration:get-languages))]
                       [settings (send lang unmarshall-settings marshalled-settings)])
                  (when lang
-                   (unless added-one?
-                     (send (new menu-item%
-                                [label (string-constant recent-languages)]
-                                [callback void]
-                                [parent menu])
-                           enable #f))
                    (set! added-one? #t)
                    (new menu-item%
                         [parent menu]
@@ -3368,8 +3367,16 @@ module browser threading seems wrong.
                                   lang
                                   settings)))]))))
              (preferences:get 'drscheme:recent-language-names))
-            (when added-one?
-              (new separator-menu-item% [parent menu])))
+            (unless added-one?
+              (send (new menu-item% 
+                         [label (string-append
+                                 "  << "
+                                 (string-constant no-recently-chosen-languages)
+                                 " >>")]
+                         [parent menu]
+                         [callback void])
+                    enable #f))
+            (new separator-menu-item% [parent menu]))
           (new menu-item%
                [label (string-constant choose-language-menu-item-label)]
                [parent menu]
diff --git a/collects/string-constants/english-string-constants.ss b/collects/string-constants/english-string-constants.ss
index 1d8dfa0afa..8ef59fe25c 100644
--- a/collects/string-constants/english-string-constants.ss
+++ b/collects/string-constants/english-string-constants.ss
@@ -933,6 +933,8 @@ please adhere to these guidelines:
   ; used the popup menu from the just above; greyed out and only
   ; visible when some languages are in the history
   (recent-languages "Recent languages:")
+  ; shows up in bottom-left programming language menu popup, when no langs are recorded
+  (no-recently-chosen-languages "no recently chosen languages") 
   
  ;; startup wizard screen language selection section
  (please-select-a-language "Please select a language")