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

added string constants for the menus added in the previous commit

Browse Source 
svn: r18246
This commit is contained in:
Robby Findler 2010-02-21 02:09:25 +00:00
parent 95debe6353
commit ad352387c9
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/private/main.ss
View File

@ -567,7 +567,9 @@
#:when (< i 9)) #:when (< i 9))
(new menu-item% (new menu-item%
[parent windows-menu] [parent windows-menu]
[label (format "Tab ~a: ~a" (+ i 1) (send frame get-tab-filename i))] [label (format (string-constant tab-i)
(+ i 1)
(send frame get-tab-filename i))]
[shortcut (integer->char (+ (char->integer #\1) i))] [shortcut (integer->char (+ (char->integer #\1) i))]
[callback [callback
(λ (a b) (λ (a b)

2
collects/string-constants/english-string-constants.ss
View File

@ -730,7 +730,7 @@ please adhere to these guidelines:
(most-recent-window "Most Recent Window") (most-recent-window "Most Recent Window")
(next-tab "Next Tab") (next-tab "Next Tab")
(prev-tab "Previous Tab") (prev-tab "Previous Tab")
(tab-i "Tab ~a") ;; menu item in the windows menu under mac os x. ~a is filled with a number between 1 and 9. (tab-i "Tab ~a: ~a") ;; menu item in the windows menu under mac os x. first ~a is filled with a number between 1 and 9; second one is the filename of the tab
(view-menu-label "&View") (view-menu-label "&View")
(show-overview "Show &Program Contour") (show-overview "Show &Program Contour")