From 07fd3676d029ab7f4a815eb14d4f0d744c186ad9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 23 Apr 2013 09:06:54 -0600 Subject: [PATCH] racket/gui cocoa: fix `enable' on window whose ancestor is disabled --- collects/mred/private/wx/cocoa/window.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/mred/private/wx/cocoa/window.rkt b/collects/mred/private/wx/cocoa/window.rkt index 852101118c..9999a148b5 100644 --- 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))