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

Cocoa: fix enable method of choice%

Browse Source
This commit is contained in:
Matthew Flatt 2016-05-18 14:33:16 -06:00
parent 10425033b8
commit 3e6fcf18bb
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gui-lib/mred/private/wx/cocoa/window.rkt
View File

@ -621,11 +621,13 @@
(define enabled? #t) (define enabled? #t)
(define/public (is-enabled-to-root?) (define/public (is-enabled-to-root?)
(and (is-window-enabled?) (is-parent-enabled-to-root?))) (and (is-window-enabled?/raw) (is-parent-enabled-to-root?)))
(define/public (is-parent-enabled-to-root?) (define/public (is-parent-enabled-to-root?)
(send parent is-enabled-to-root?)) (send parent is-enabled-to-root?))
(define/public (is-window-enabled?) (define/public (is-window-enabled?/raw)
enabled?) enabled?)
(define/public (is-window-enabled?)
(is-window-enabled?/raw))
(define/public (enable on?) (define/public (enable on?)
(atomically (atomically
(set! enabled? on?) (set! enabled? on?)