From d4afe33b87ffbf06e190138b062fe0159048ba41 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 original commit: 07fd3676d029ab7f4a815eb14d4f0d744c186ad9 --- 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 85210111..9999a148 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))