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

add space before checkbox in single-line mode for Unix/Windows message box

Browse Source 
svn: r3299

original commit: cc4f2270b7fc7503e3932652ddfc9a147bad7468
This commit is contained in:
Matthew Flatt 2006-06-09 15:32:33 +00:00
parent 4806a9f771
commit cf3aaeb862
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -149,12 +149,15 @@
(send msg-pnl delete-child c)
(loop #t)))))))
(let ([check (and check?
(let ([p (new horizontal-pane% [parent cb-pnl]
(let ([p (new vertical-pane% [parent cb-pnl]
[stretchable-height #f]
[alignment '(left center)])])
(when (and single?
(eq? 'macosx (system-type)))
(send p horiz-margin 8))
(when single?
(if (eq? 'macosx (system-type))
;; Match text-panel margin:
(send p horiz-margin 8)
;; Put space between message an checkbox:
(new message% [parent p] [label " "])))
(new check-box%
[label check-message]
[parent p]