suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

racket/gui cocoa: avoid focus-setting loop

Browse Source
This commit is contained in:
Matthew Flatt 2013-04-20 08:30:37 -06:00
parent 075db0bf17
commit fd8bde94da
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/wx/cocoa/frame.rkt
View File

@ -466,11 +466,11 @@
(define/override (is-responder wx on?) (define/override (is-responder wx on?)
(unless (and (not on?) (unless (and (not on?)
(not (eq? first-responder wx))) (not (eq? first-responder wx)))
(unless on?
(tellv cocoa makeFirstResponder: #f))
(if on? (if on?
(set! first-responder wx) (set! first-responder wx)
(set! first-responder #f)) (set! first-responder #f))
(unless on?
(tellv cocoa makeFirstResponder: #f))
(when is-main? (when is-main?
(do-notify-responder wx on?)))) (do-notify-responder wx on?))))