diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 5ab6319542..3d7367c0d4 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -2318,10 +2318,16 @@ module browser threading seems wrong. (define/private (update-close-tab-menu-item-shortcut item) (let ([just-one? (and (pair? tabs) (null? (cdr tabs)))]) + (send item set-label (if just-one? + (string-constant close-tab) + (string-constant close-tab-amp))) (send item set-shortcut (if just-one? #f #\w)))) (define/private (update-close-menu-item-shortcut item) (let ([just-one? (and (pair? tabs) (null? (cdr tabs)))]) + (send item set-label (if just-one? + (string-constant close-menu-item) + (string-constant close))) (send item set-shortcut (if just-one? #\w #f)))) @@ -2620,7 +2626,7 @@ module browser threading seems wrong. (define/override (file-menu:between-close-and-quit file-menu) (set! close-tab-menu-item (new (get-menu-item%) - (label (string-constant close-tab)) + (label (string-constant close-tab-no-amp)) (demand-callback (λ (item) (send item enable (1 . < . (send tabs-panel get-number))))) diff --git a/collects/string-constants/english-string-constants.ss b/collects/string-constants/english-string-constants.ss index a5d1f5d326..c3f7c5229e 100644 --- a/collects/string-constants/english-string-constants.ss +++ b/collects/string-constants/english-string-constants.ss @@ -800,7 +800,8 @@ please adhere to these guidelines: (print-interactions "Print Interactions...") (new-tab "New Tab") (close-tab "Close Tab") ;; must not have any &s in it. - + (close-tab-amp "&Close Tab") ;; like close-tab, but with an ampersand on the same letter as the one in close-menu-item + ;;; edit-menu (split-menu-item-label "&Split") (collapse-menu-item-label "C&ollapse")