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

cocoa: use alternate key if ctl-combination has no mapping

Browse Source 
--- fixes ctl-space, and maybe other combinations
 Closes PR 11403
This commit is contained in:
Matthew Flatt 2010-11-08 20:43:28 -07:00
parent fc111f8909
commit c9b7c98525
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/private/wx/cocoa/window.rkt
View File

@ -269,8 +269,10 @@
(let ([alt-code (string-ref alt-str 0)]) (let ([alt-code (string-ref alt-str 0)])
(unless (equal? alt-code (send k get-key-code)) (unless (equal? alt-code (send k get-key-code))
(send k set-other-altgr-key-code alt-code))))) (send k set-other-altgr-key-code alt-code)))))
(when (and option? (when (and (or (and option?
special-option-key? special-option-key?)
(and control?
(equal? (send k get-key-code) #\u00)))
(send k get-other-altgr-key-code)) (send k get-other-altgr-key-code))
;; swap altenate with main ;; swap altenate with main
(let ([other (send k get-other-altgr-key-code)]) (let ([other (send k get-other-altgr-key-code)])