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

cocoa: fix ctl-\ key event

Browse Source
This commit is contained in:
Matthew Flatt 2010-11-08 07:03:51 -07:00
parent 5354e557d4
commit 3747978c1e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -248,7 +248,7 @@
#\nul
(let ([c (string-ref str 0)])
(or (and control?
(char<=? #\u00 c #\u1a)
(char<=? #\u00 c #\u1F)
(let ([alt-str (tell #:type _NSString event charactersIgnoringModifiers)])
(and (string? alt-str)
(= 1 (string-length alt-str))