From 4861fa5f0307594df420f60c0c980a04cb9c0667 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 11 Aug 2008 22:14:36 +0000
Subject: [PATCH] fix single-panel, which had stretchability reversed

svn: r11191
---
 collects/framework/private/panel.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/framework/private/panel.ss b/collects/framework/private/panel.ss
index 856f805945..6a5f12803f 100644
--- a/collects/framework/private/panel.ss
+++ b/collects/framework/private/panel.ss
@@ -46,7 +46,7 @@
                       [else (error 'place-children
                                    "alignment spec is unknown ~a~n" spec)])))])
             (map (λ (l) 
-                   (let*-values ([(min-width min-height v-stretch? h-stretch?)
+                   (let*-values ([(min-width min-height h-stretch? v-stretch?)
                                   (apply values l)]
                                  [(x this-width)
                                   (if h-stretch?