From ad352387c9083fe2ee5c94c63b7fdf25b96e88dc Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 21 Feb 2010 02:09:25 +0000 Subject: [PATCH] added string constants for the menus added in the previous commit svn: r18246 --- collects/drscheme/private/main.ss | 4 +++- collects/string-constants/english-string-constants.ss | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/main.ss b/collects/drscheme/private/main.ss index b9b70de1ab..8b63a80ca6 100644 --- a/collects/drscheme/private/main.ss +++ b/collects/drscheme/private/main.ss @@ -567,7 +567,9 @@ #:when (< i 9)) (new menu-item% [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))] [callback (λ (a b) diff --git a/collects/string-constants/english-string-constants.ss b/collects/string-constants/english-string-constants.ss index 827da39cd9..dca99cda5a 100644 --- a/collects/string-constants/english-string-constants.ss +++ b/collects/string-constants/english-string-constants.ss @@ -730,7 +730,7 @@ please adhere to these guidelines: (most-recent-window "Most Recent Window") (next-tab "Next 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") (show-overview "Show &Program Contour")