racket/gui cocoa: fix floating-window event handling

Closes PR 12754
This commit is contained in:
Matthew Flatt 2012-05-16 08:00:50 -06:00
parent d5b17210e3
commit b0409dd232

View File

@ -173,7 +173,8 @@
;; eventspace:
(not (ptr-equal? w (send root-fake-frame get-cocoa)))
(is-mouse-or-key?))
(objc-is-a? w MyWindow)
(or (objc-is-a? w MyWindow)
(objc-is-a? w MyPanel))
(tell #:type _scheme w getEventspace))]
[front (send front get-eventspace)]
[root-fake-frame