suzanne.soy/gui
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

original commit: f1a4aeedba431f8ed54767dc045e4d2a5282b5a4
This commit is contained in:
Robby Findler 2012-08-21 08:15:41 -05:00
parent 2473e9094f
commit 844fe17da2
1 changed files with 6 additions and 5 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)