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

fix (hopefully) the Move Tab Left and Move Tab Right shortcut keybindings

Browse Source
This commit is contained in:
Robby Findler 2014-01-25 21:41:09 -06:00
parent 90a9b951b7
commit a89ac52215
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -715,9 +715,9 @@
(define-values (mprefix use-shortcut?) (define-values (mprefix use-shortcut?)
(case (system-type) (case (system-type)
[(windows unix) [(windows unix)
(if (equal? (get-default-shortcut-prefix) 'ctl) (if (equal? (get-default-shortcut-prefix) (list 'ctl))
(values (list* 'alt 'shift (get-default-shortcut-prefix)) #f) (values (list* 'alt 'shift (get-default-shortcut-prefix)) #t)
(values (get-default-shortcut-prefix) #t))] (values (get-default-shortcut-prefix) #f))]
[(macosx) [(macosx)
(values (cons 'option (get-default-shortcut-prefix)) #t)])) (values (cons 'option (get-default-shortcut-prefix)) #t)]))