move some literal strings into the string constants
(they should have been there ages ago ...)
This commit is contained in:
parent
200ec130a0
commit
f4f7833531
|
@ -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?)))])
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user