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

made the underlined letter move around in the close & close-tab menu items

Browse Source 
svn: r6778
This commit is contained in:
Robby Findler 2007-06-30 04:16:39 +00:00
parent 6ce5440fa7
commit e621175f62
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/drscheme/private/unit.ss
View File

@ -2318,10 +2318,16 @@ module browser threading seems wrong.
(define/private (update-close-tab-menu-item-shortcut item) (define/private (update-close-tab-menu-item-shortcut item)
(let ([just-one? (and (pair? tabs) (null? (cdr tabs)))]) (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)))) (send item set-shortcut (if just-one? #f #\w))))
(define/private (update-close-menu-item-shortcut item) (define/private (update-close-menu-item-shortcut item)
(let ([just-one? (and (pair? tabs) (null? (cdr tabs)))]) (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)))) (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) (define/override (file-menu:between-close-and-quit file-menu)
(set! close-tab-menu-item (set! close-tab-menu-item
(new (get-menu-item%) (new (get-menu-item%)
(label (string-constant close-tab)) (label (string-constant close-tab-no-amp))
(demand-callback (demand-callback
(λ (item) (λ (item)
(send item enable (1 . < . (send tabs-panel get-number))))) (send item enable (1 . < . (send tabs-panel get-number)))))

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

@ -800,7 +800,8 @@ please adhere to these guidelines:
(print-interactions "Print Interactions...") (print-interactions "Print Interactions...")
(new-tab "New Tab") (new-tab "New Tab")
(close-tab "Close Tab") ;; must not have any &s in it. (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 ;;; edit-menu
(split-menu-item-label "&Split") (split-menu-item-label "&Split")
(collapse-menu-item-label "C&ollapse") (collapse-menu-item-label "C&ollapse")