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

control-alt for menu selections probably shouldn't be

Browse Source 
used under windows, so just give a menu shortcut under
macosx and under windows rely on the underscore thingy
This commit is contained in:
Robby Findler 2012-08-21 08:15:41 -05:00
parent e14013670a
commit f1a4aeedba
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/framework/private/standard-menus-items.rkt
View File

@ -363,11 +363,12 @@
(make-an-item 'edit-menu 'find-from-selection (make-an-item 'edit-menu 'find-from-selection
'(string-constant find-info) '(string-constant find-info)
'(λ (item control) (void)) '(λ (item control) (void))
#\f '(if (eq? (system-type) 'macosx)
'(cons (if (eq? (system-type) 'macosx) #\f
'option #f)
'alt ) '(if (eq? (system-type) 'macosx)
(get-default-shortcut-prefix)) (cons 'option (get-default-shortcut-prefix))
(get-default-shortcut-prefix))
'(string-constant find-from-selection-menu-item) '(string-constant find-from-selection-menu-item)
edit-menu:edit-target-on-demand edit-menu:edit-target-on-demand
#f) #f)

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

@ -737,7 +737,7 @@ please adhere to these guidelines:
(select-all-menu-item "Select A&ll") (select-all-menu-item "Select A&ll")
(find-menu-item "Find") ;; menu item (find-menu-item "Find") ;; menu item
(find-from-selection-menu-item "Find From Selection") (find-from-selection-menu-item "Find From S&election")
(find-info "Toggles the keyboard focus between the window being searched and the search bar") (find-info "Toggles the keyboard focus between the window being searched and the search bar")
(find-next-info "Skip to the next occurrence of the string in the find window") (find-next-info "Skip to the next occurrence of the string in the find window")