.

original commit: 2b0e1bcd9047064a8d0b60f5724411c1205b8e11
2005-01-20 21:06:24 +00:00 · 2005-01-20 21:06:24 +00:00 · ccb86c681f
commit ccb86c681f
parent 96c3a3d4c6
1 changed files with 2 additions and 2 deletions
--- 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))))