racket/gui cocoa: avoid focus-setting loop

2013-04-20 08:30:37 -06:00 · 2013-04-20 08:30:37 -06:00 · fd8bde94da
commit fd8bde94da
parent 075db0bf17
1 changed files with 2 additions and 2 deletions
--- 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?))))