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

adjusted sizes a little bit

Browse Source 
svn: r3306
This commit is contained in:
Robby Findler 2006-06-09 16:34:21 +00:00
parent 95cb36b1dc
commit 283959f8fa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/messagebox.ss
View File

@ -108,8 +108,8 @@
(when single?
(send msg-pnl horiz-margin 8))
(send btn-pnl vert-margin 8)
(send msg-pnl min-height 64)
(send msg-pnl min-width 350)
(send msg-pnl min-height 40)
(send msg-pnl min-width 300)
(send btn-pnl stretchable-height #f)
(values msg-pnl btn-pnl btn-pnl 96 'right 'left 'top)))]
[else (let ([p (new horizontal-pane% [parent f] [alignment '(center top)])])