suzanne.soy/gui
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

original commit: 7880355fdd5a7c3d6e48b8719999c3b1e711486b
This commit is contained in:
Matthew Flatt 2006-06-09 14:01:05 +00:00
parent be9da07acb
commit 0e0b971eb0
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]