From cf3aaeb8629be1ffb37556892d6d13dc48e77d09 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 9 Jun 2006 15:32:33 +0000 Subject: [PATCH] add space before checkbox in single-line mode for Unix/Windows message box svn: r3299 original commit: cc4f2270b7fc7503e3932652ddfc9a147bad7468 --- collects/mred/private/messagebox.ss | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/collects/mred/private/messagebox.ss b/collects/mred/private/messagebox.ss index 7f86703f..53845a51 100644 --- a/collects/mred/private/messagebox.ss +++ b/collects/mred/private/messagebox.ss @@ -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]