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

.

Browse Source 
original commit: b0e9313349fef6f20947c7a9458201f5bdd06b2a
This commit is contained in:
Matthew Flatt 2002-12-04 20:54:39 +00:00
parent 4a579cf60f
commit 6740eafef1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/mred.ss
View File

@ -3221,7 +3221,8 @@
r))))])
(sequence
(super-init #f proxy parent (if (memq 'inactive style) '(inactive) null))
(send (area-parent) add-child this))
(unless (memq 'inactive style)
(send (area-parent) add-child this)))
(private-field
[multi? (memq 'multiple style)]
[horiz? (eq? (send (send parent get-window) get-label-position) 'horizontal)]
@ -4783,7 +4784,8 @@
(lambda () wx)
(lambda () (check-container-ready cwho parent))
#f parent #f)
(send (send wx area-parent) add-child wx)))
(unless (memq 'inactive style)
(send (send wx area-parent) add-child wx))))
(send parent after-new-child this)))))
(define vertical-panel% (class100*/kw panel% () [(parent [style null]) panel%-keywords] (sequence (super-init parent style))))