cocoa: fix first-responder tracking when a frame is hidden

2011-01-27 19:19:43 -07:00 · 2011-01-27 19:19:43 -07:00 · 2ab0d36738
commit 2ab0d36738
parent 2c0a034792
1 changed files with 2 additions and 0 deletions
--- a/collects/mred/private/wx/cocoa/frame.rkt
+++ b/collects/mred/private/wx/cocoa/frame.rkt
@ -392,6 +392,8 @@
    (define/override (is-responder wx on?)
      (unless (and (not on?)
                   (not (eq? first-responder wx)))
+        (unless on?
+          (tellv cocoa makeFirstResponder: #f))
        (if on?
            (set! first-responder wx)
            (set! first-responder #f))