racket/gui cocoa: fix `enable' on window whose ancestor is disabled
This commit is contained in:
parent
2ebc200d3d
commit
07fd3676d0
|
@ -576,7 +576,8 @@
|
||||||
(define/public (enable on?)
|
(define/public (enable on?)
|
||||||
(atomically
|
(atomically
|
||||||
(set! enabled? on?)
|
(set! enabled? on?)
|
||||||
(enable-window on?)))
|
(when (is-parent-enabled-to-root?)
|
||||||
|
(enable-window on?))))
|
||||||
(define/public (enable-window on?)
|
(define/public (enable-window on?)
|
||||||
;; in atomic mode
|
;; in atomic mode
|
||||||
(void))
|
(void))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user