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

.

Browse Source 
original commit: b69a361c320bf7ae9faee630188eefc640c04385
This commit is contained in:
Matthew Flatt 2002-09-04 04:39:19 +00:00
parent beccbadd39
commit baa2bbc37d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/mred.ss
View File

@ -5090,7 +5090,7 @@
(send msg-pnl min-height 64)
(send btn-pnl stretchable-height #f)
(values msg-pnl btn-pnl 96 'right 'left 'top)))]
[else (let ([p (make-object horizontal-pane% f)])
[else (let ([p (instantiate horizontal-pane% (f) [alignment '(center top)])])
(make-object message% 'app p)
(values (make-object vertical-pane% p) f 0 'center 'center 'center))])])
(if single?