From 2ab0d36738e6c8f51de1d3ad68701e88bb6decea Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 27 Jan 2011 19:19:43 -0700
Subject: [PATCH] cocoa: fix first-responder tracking when a frame is hidden

---
 collects/mred/private/wx/cocoa/frame.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/mred/private/wx/cocoa/frame.rkt b/collects/mred/private/wx/cocoa/frame.rkt
index 362ab56e21..9b8a4395b2 100644
--- 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))