suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

get rid of the obscenely long menu item name

Browse Source 
closes PR 12423
This commit is contained in:
Robby Findler 2011-12-06 15:21:49 -06:00
parent 8f7572bc5e
commit 2899fd0903
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/drracket/private/unit.rkt
View File

@ -3101,7 +3101,7 @@ module browser threading seems wrong.
(string-constant interactions-menu-item-help-string))) (string-constant interactions-menu-item-help-string)))
(new menu:can-restore-menu-item% (new menu:can-restore-menu-item%
[label (string-constant put-interactions-beside-definitions)] [label (string-constant use-horizontal-layout)]
[parent (get-show-menu)] [parent (get-show-menu)]
[callback (λ (x y) [callback (λ (x y)
(define vertical? (send resizable-panel get-vertical?)) (define vertical? (send resizable-panel get-vertical?))
@ -3117,9 +3117,9 @@ module browser threading seems wrong.
(update-shown)))] (update-shown)))]
[demand-callback [demand-callback
(λ (mi) (send mi set-label (if (send resizable-panel get-vertical?) (λ (mi) (send mi set-label (if (send resizable-panel get-vertical?)
(string-constant put-interactions-beside-definitions) (string-constant use-horizontal-layout)
(string-constant put-interactions-below-definitions))))] (string-constant use-vertical-layout))))]
[shortcut #\d] [shortcut #\l]
[shortcut-prefix (cons 'shift (get-default-shortcut-prefix))]) [shortcut-prefix (cons 'shift (get-default-shortcut-prefix))])
(new separator-menu-item% [parent (get-show-menu)]) (new separator-menu-item% [parent (get-show-menu)])

4
collects/string-constants/private/english-string-constants.rkt
View File

@ -906,8 +906,8 @@ please adhere to these guidelines:
(definitions-menu-item-help-string "Show/Hide the definitions window") (definitions-menu-item-help-string "Show/Hide the definitions window")
(show-interactions-menu-item-label "Show &Interactions") (show-interactions-menu-item-label "Show &Interactions")
(hide-interactions-menu-item-label "Hide &Interactions") (hide-interactions-menu-item-label "Hide &Interactions")
(put-interactions-beside-definitions "Put the Interactions Window Beside the Definitions Window") (use-horizontal-layout "Use Horizontal Layout")
(put-interactions-below-definitions "Put the Interactions Window Below the Definitions Window") (use-vertical-layout "Use Vertical Layout")
(interactions-menu-item-help-string "Show/Hide the interactions window") (interactions-menu-item-help-string "Show/Hide the interactions window")
(toolbar "Toolbar") (toolbar "Toolbar")
(toolbar-on-top "Toolbar On Top") (toolbar-on-top "Toolbar On Top")

4
collects/string-constants/private/german-string-constants.rkt
View File

@ -803,8 +803,8 @@
(definitions-menu-item-help-string "Definitionsfenster ein-/ausblenden") (definitions-menu-item-help-string "Definitionsfenster ein-/ausblenden")
(show-interactions-menu-item-label "&Interaktionen einblenden") (show-interactions-menu-item-label "&Interaktionen einblenden")
(hide-interactions-menu-item-label "&Interaktionen ausblenden") (hide-interactions-menu-item-label "&Interaktionen ausblenden")
(put-interactions-beside-definitions "Interaktionsfenster neben die Definitionen setzen") (use-horizontal-layout "Interaktionsfenster neben die Definitionen setzen")
(put-interactions-below-definitions "Interaktionsfenster unter die Definitionen setzen") (use-vertical-layout "Interaktionsfenster unter die Definitionen setzen")
(interactions-menu-item-help-string "Interaktionsfenster ein-/ausblenden") (interactions-menu-item-help-string "Interaktionsfenster ein-/ausblenden")
(toolbar "Toolbar") (toolbar "Toolbar")
(toolbar-on-top "Toolbar oben") (toolbar-on-top "Toolbar oben")