racket/gui cocoa: fix floating-window event handling

Closes PR 12754
2012-05-16 08:00:50 -06:00 · 2012-05-16 08:00:50 -06:00 · b0409dd232
commit b0409dd232
parent d5b17210e3
1 changed files with 2 additions and 1 deletions
--- a/collects/mred/private/wx/cocoa/frame.rkt
+++ b/collects/mred/private/wx/cocoa/frame.rkt
@ -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