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

adjust 'move tab left/right' keybindings to avoid

Browse Source 
begin the same as browser tab switching
This commit is contained in:
Robby Findler 2013-10-14 14:16:23 -05:00
parent 4a542969c7
commit f30c6f2fbd
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/drracket-pkgs/drracket/drracket/private/main.rkt
View File

@ -752,9 +752,11 @@
(when frame
(send frame next-tab))))])
(define mprefix (if (eq? (system-type) 'windows)
(list* 'alt 'shift (get-default-shortcut-prefix))
(cons 'shift (get-default-shortcut-prefix))))
(define mprefix (case (system-type)
[(windows unix)
(list* 'alt 'shift (get-default-shortcut-prefix))]
[(macosx)
(list* 'option (get-default-shortcut-prefix))]))
(new menu-item%
[parent windows-menu]