cocoa: fix problem with dispatching key-up events

Closes PR 11635 Merge to 5.1
2011-01-31 12:39:57 -07:00 · 2011-01-31 12:39:57 -07:00 · 152c636e1c
commit 152c636e1c
parent f7fd6ee689
1 changed files with 6 additions and 1 deletions
--- a/collects/mred/private/wx/cocoa/menu-bar.rkt
+++ b/collects/mred/private/wx/cocoa/menu-bar.rkt
@ -58,7 +58,12 @@
                    (and r
                         (begin
                           (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)))))))))

 (define cocoa-mb (tell (tell MyBarMenu alloc) init))