From 8c9a88983ef7cbbe88efa9b408f980946e406c5d Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 17 Sep 2007 23:17:47 +0000 Subject: [PATCH] fix multi-line message box (gone bad in rev 3304) svn: r7374 original commit: 45c55b6fcac0ad0c0e6f25d4f187b9b9fc88d46b --- collects/mred/private/messagebox.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/messagebox.ss b/collects/mred/private/messagebox.ss index c3e338d5..4b08a7ca 100644 --- a/collects/mred/private/messagebox.ss +++ b/collects/mred/private/messagebox.ss @@ -112,7 +112,7 @@ [else (let ([p (new horizontal-pane% [parent f] [alignment '(center top)])]) (let ([icon-msg (make-object message% icon-id p)] [msg-pnl (new vertical-pane% [parent p])]) - (values (if single? + (values (if (= 1 (length strings)) (new horizontal-pane% [parent msg-pnl] [alignment '(center top)]