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

.

Browse Source 
original commit: 1c1c34c66e3c29db02bd2cadbf0f916c3e5dbb05
This commit is contained in:
Matthew Flatt 1999-09-04 15:51:02 +00:00
parent 6b15485233
commit f446a7837f
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2789,7 +2789,15 @@
(send wx set-cursor x)
(set! cursor x)))]
[show (entry-point-1 (lambda (on?) (send wx show on?)))]
[show (entry-point-1 (lambda (on?)
(when on?
(unless top?
(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: "
this))))
(send wx show on?)))]
[is-shown? (entry-point (lambda () (send wx is-shown?)))]
[refresh (entry-point (lambda () (send wx refresh)))])