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

cocoa: fix problem with dispatching key-up events

Browse Source 
Closes PR 11635
 Merge to 5.1
This commit is contained in:
Matthew Flatt 2011-01-31 12:39:57 -07:00
parent f7fd6ee689
commit 152c636e1c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/private/wx/cocoa/menu-bar.rkt
View File

@ -58,7 +58,12 @@
(and r (and r
(begin (begin
(parameterize ([recurring-for-command #t]) (parameterize ([recurring-for-command #t])
(tell r keyDown: evt)) (let ([evt-type (tell #:type _NSInteger evt type)])
(cond
[(= NSKeyDown evt-type)
(tell r keyDown: evt)]
[(= NSKeyUp evt-type)
(tell r keyUp: evt)])))
#t))))))))) #t)))))))))
(define cocoa-mb (tell (tell MyBarMenu alloc) init)) (define cocoa-mb (tell (tell MyBarMenu alloc) init))