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

cocoa: fix race condition on window enabling

Browse Source 
original commit: 37d16cf8f81a5b486ca79d5c6b6695de5dc95455
This commit is contained in:
Matthew Flatt 2010-11-28 17:10:42 -07:00
parent 16f70bd22c
commit eafc586bf3
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/mred/private/wx/cocoa/canvas.rkt
View File

@ -612,6 +612,7 @@
1)])) 1)]))
(define/override (enable-window on?) (define/override (enable-window on?)
;; in atomic mode
(let ([on? (and on? (is-window-enabled?))]) (let ([on? (and on? (is-window-enabled?))])
(let ([w (tell content-cocoa window)]) (let ([w (tell content-cocoa window)])
(when (ptr-equal? content-cocoa (tell w firstResponder)) (when (ptr-equal? content-cocoa (tell w firstResponder))

6
collects/mred/private/wx/cocoa/window.rkt
View File

@ -520,9 +520,11 @@
(define/public (is-window-enabled?) (define/public (is-window-enabled?)
enabled?) enabled?)
(define/public (enable on?) (define/public (enable on?)
(set! enabled? on?) (atomically
(enable-window on?)) (set! enabled? on?)
(enable-window on?)))
(define/public (enable-window on?) (define/public (enable-window on?)
;; in atomic mode
(void)) (void))
(define block-all-mouse-events? #f) (define block-all-mouse-events? #f)