.
original commit: 743fc098c2772673cc72998e56050ae13b0606e2
This commit is contained in:
parent
f446a7837f
commit
785b85b926
|
@ -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?)))]
|
||||
|
|
Loading…
Reference in New Issue
Block a user