suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 743fc098c2772673cc72998e56050ae13b0606e2
This commit is contained in:
Matthew Flatt 1999-09-05 19:29:42 +00:00
parent f446a7837f
commit 785b85b926
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mred/wrap/mred.ss
View File

@ -2795,7 +2795,7 @@
(unless (memq wx (ivar (send wx get-parent) children)) (unless (memq wx (ivar (send wx get-parent) children))
(raise-mismatch-error (raise-mismatch-error
(who->name '(method window<%> show)) (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)))) this))))
(send wx show on?)))] (send wx show on?)))]
[is-shown? (entry-point (lambda () (send wx is-shown?)))] [is-shown? (entry-point (lambda () (send wx is-shown?)))]