From ccb86c681f10101afaefb70f6b5d83504de27536 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 20 Jan 2005 21:06:24 +0000
Subject: [PATCH] .

original commit: 2b0e1bcd9047064a8d0b60f5724411c1205b8e11
---
 collects/mred/mred.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 96959d0d..f5f81927 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -376,8 +376,8 @@
 	    null)]
        [(or (eq? i except) 
 	    (and must-focus? (not (send i gets-focus?)))
-	    (not (send i is-enabled?))
-	    (not (send i is-shown?)))
+	    (not (send i is-enabled-to-root?))
+	    (not (send i is-shown-to-root?)))
 	null]
        [else (list i)]))
     (send f get-children))))