From f559fe21aef403cb1e264a37a9daf3382920d0d2 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 9 Sep 1999 13:58:10 +0000
Subject: [PATCH] .

original commit: 1f2d2723f99f23eaea665fd5d3ceca1d9e5d4619
---
 collects/tests/mred/windowing.ss | 11 ++++++++++-
 src/mred/wrap/mred.ss            |  2 +-
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/collects/tests/mred/windowing.ss b/collects/tests/mred/windowing.ss
index f9ac88cc..10b0037b 100644
--- a/collects/tests/mred/windowing.ss
+++ b/collects/tests/mred/windowing.ss
@@ -139,13 +139,22 @@
     (st #f f get-cursor)
     (stv f set-cursor c)))
 
+(define (show-tests f)
+  (unless (is-a? f dialog%)
+    (printf "Show ~a~n" f)
+    (let ([on? (send f is-shown?)])
+      (stv f show #f)
+      (when on?
+	(stv f show #t)))))
+
 (define (window-tests f sw? sh? parent top m)
   (st parent f get-parent)
   (st top f get-top-level-window)
   (enable-tests f)
   (drop-file-tests f)
   (client->screen-tests f)
-  (cursor-tests f))
+  (cursor-tests f)
+  (show-tests f))
 
 (define (containee-window-tests f sw? sh? parent top m)
   (window-tests f sw? sh? parent top m)
diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 7628f5e5..97561c8e 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -2792,7 +2792,7 @@
       [show (entry-point-1 (lambda (on?) 
 			     (when on?
 			       (unless top?
-				 (unless (memq wx (ivar (send wx get-parent) children))
+				 (unless (memq wx (ivar (send wx area-parent) children))
 				   (raise-mismatch-error 
 				    (who->name '(method window<%> show))
 				    "cannot show a subwindow that is not active in its parent: "