cocoa: fix problem with frame focus

original commit: 370c97165a2efc2b9061c27e31b1cdf0d0a97026
2010-11-24 12:03:17 -07:00 · 2010-11-24 12:03:17 -07:00 · eb01085adf
commit eb01085adf
parent 596161d950
1 changed files with 1 additions and 0 deletions
--- a/collects/mred/private/wx/cocoa/frame.rkt
+++ b/collects/mred/private/wx/cocoa/frame.rkt
@ -271,6 +271,7 @@
                        (for/or ([i (in-range (tell #:type _NSUInteger wins count))])
                          (let ([win (tell wins objectAtIndex: #:type _NSUInteger i)])
                            (and (tell #:type _BOOL win isVisible)
+                                 (not (tell win parentWindow))
                                 (or (not root-fake-frame)
                                     (not (ptr-equal? win (send root-fake-frame get-cocoa))))
                                 win)))))))])