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

duh

Browse Source
This commit is contained in:
Robby Findler 2010-06-17 23:49:00 -05:00
parent b39f686e7e
commit f76f711261
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/drracket/private/language-configuration.rkt
View File

@ -22,13 +22,8 @@
(apply string-append
(map (λ (x)
(case x
[(alt) "alt-"]
[(cmd) "⌘"]
[(meta) "meta-"]
[(control) "ctl-"]
[(shift) "shift-"]
[(option) "opt-"]
[else (error 'language-configuration.rkt "unknown result from get-default-shortcut-prefix: ~s" x)]))
[else (format "~a-" x)]))
shortcut-prefix))])
(define (mouse-event-uses-shortcut-prefix? evt)
(andmap (λ (prefix)
@ -38,7 +33,7 @@
[else (send evt get-alt-down)])]
[(cmd) (send evt get-meta-down)]
[(meta) (send evt get-meta-down)]
[(control) (send evt get-control-down)]
[(ctl) (send evt get-control-down)]
[(shift) (send evt get-shiftdown)]
[(option) (send evt get-alt-down)]))
shortcut-prefix))