From fd8bde94da1efb2195bbeeb55ad3c9936a5962d7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 20 Apr 2013 08:30:37 -0600 Subject: [PATCH] racket/gui cocoa: avoid focus-setting loop --- collects/mred/private/wx/cocoa/frame.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wx/cocoa/frame.rkt b/collects/mred/private/wx/cocoa/frame.rkt index 9bad873467..0e038c6591 100644 --- a/collects/mred/private/wx/cocoa/frame.rkt +++ b/collects/mred/private/wx/cocoa/frame.rkt @@ -466,11 +466,11 @@ (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)) + (unless on? + (tellv cocoa makeFirstResponder: #f)) (when is-main? (do-notify-responder wx on?))))