racket/gui cocoa: fix `enable' on window whose ancestor is disabled

2013-04-23 09:06:54 -06:00 · 2013-04-23 09:06:54 -06:00 · 07fd3676d0
commit 07fd3676d0
parent 2ebc200d3d
1 changed files with 2 additions and 1 deletions
--- a/collects/mred/private/wx/cocoa/window.rkt
+++ b/collects/mred/private/wx/cocoa/window.rkt
@ -576,7 +576,8 @@
    (define/public (enable on?)
      (atomically
       (set! enabled? on?)
-       (enable-window on?)))
+       (when (is-parent-enabled-to-root?)
+         (enable-window on?))))
    (define/public (enable-window on?)
      ;; in atomic mode
      (void))