From 785b85b926b9af972cdbb03ff2e577075bf364a4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 5 Sep 1999 19:29:42 +0000 Subject: [PATCH] . original commit: 743fc098c2772673cc72998e56050ae13b0606e2 --- src/mred/wrap/mred.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index 99179807..7628f5e5 100644 --- a/src/mred/wrap/mred.ss +++ b/src/mred/wrap/mred.ss @@ -2795,7 +2795,7 @@ (unless (memq wx (ivar (send wx get-parent) children)) (raise-mismatch-error (who->name '(method window<%> show)) - "cannot show a child window that is not active in its parent: " + "cannot show a subwindow that is not active in its parent: " this)))) (send wx show on?)))] [is-shown? (entry-point (lambda () (send wx is-shown?)))]