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