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

fix message-box alignment for mac os x

Browse Source 
svn: r3297
This commit is contained in:
Matthew Flatt 2006-06-09 14:01:05 +00:00
parent bd2c66357f
commit 7880355fdd
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -109,6 +109,7 @@
(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 btn-pnl stretchable-height #f)
(values msg-pnl btn-pnl 96 'right 'left 'top)))]
[else (let ([p (instantiate horizontal-pane% (f) [alignment '(center top)])])
@ -150,6 +151,8 @@
(let ([p (new horizontal-pane% [parent btn-pnl]
[stretchable-height #f]
[alignment '(left center)])])
(when (eq? 'macosx (system-type))
(send p horiz-margin 8))
(new check-box%
[label check-message]
[parent p]