original commit: 743fc098c2772673cc72998e56050ae13b0606e2
This commit is contained in:
Matthew Flatt 1999-09-05 19:29:42 +00:00
parent f446a7837f
commit 785b85b926

View File

@ -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?)))]