move some literal strings into the string constants

(they should have been there ages ago ...)
This commit is contained in:
Robby Findler 2012-12-21 21:35:09 -06:00
parent 200ec130a0
commit f4f7833531
2 changed files with 5 additions and 3 deletions

View File

@ -1567,8 +1567,8 @@
(new menu-item% (new menu-item%
[parent menu] [parent menu]
[label (if on? [label (if on?
"Disable online compilation" (string-constant disable-online-expansion)
"Enable online compilation")] (string-constant enable-online-expansion))]
[callback [callback
(λ args (λ args
(preferences:set 'drracket:online-compilation-default-on (not on?)))]) (preferences:set 'drracket:online-compilation-default-on (not on?)))])

View File

@ -244,7 +244,9 @@ please adhere to these guidelines:
;; these next two show up in the bar along the bottom of the drracket window ;; these next two show up in the bar along the bottom of the drracket window
(online-expansion-pending "Background expansion pending ...") (online-expansion-pending "Background expansion pending ...")
(online-expansion-finished "Background expansion finished") ;; note: there may still be errors in this case (online-expansion-finished "Background expansion finished") ;; note: there may still be errors in this case
;; the next two show up in a menu when you click on the circle in the bottom right corner
(disable-online-expansion "Disable background expansion")
(enable-online-expansion "Enable background expansion")
;; the online expansion preferences pane ;; the online expansion preferences pane
(online-expansion "Background expansion") ;; title of prefs pane (online-expansion "Background expansion") ;; title of prefs pane
; the different kinds of errors ; the different kinds of errors