fix single-panel, which had stretchability reversed

svn: r11191 original commit: 4861fa5f0307594df420f60c0c980a04cb9c0667
2008-08-11 22:14:36 +00:00 · 2008-08-11 22:14:36 +00:00 · f0bf91b5b7
commit f0bf91b5b7
parent 5775ae5ef4
1 changed files with 1 additions and 1 deletions
--- 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?