PR 10241

svn: r15164 original commit: 4e766cdca4b1ab56a9d057992604ecb8b6d64be3
2009-06-13 15:44:12 +00:00 · 2009-06-13 15:44:12 +00:00 · 1d67c2da0c
commit 1d67c2da0c
parent b64c0925fa
1 changed files with 7 additions and 0 deletions
--- a/collects/framework/private/color-prefs.ss
+++ b/collects/framework/private/color-prefs.ss
@ -152,6 +152,13 @@
    (send bold-check set-value (eq? (send style get-weight) 'bold))
    (send underline-check set-value (send style get-underlined))
    (send smoothing-menu set-selection (smoothing->index (send style get-smoothing)))
+    
+    (send hp reflow-container)
+    (when (> (send c get-height) 50)
+      (send c set-line-count #f)
+      (send c min-height 50)
+      (send c stretchable-height #f))
+    
    (preferences:add-callback
     pref-sym
     (λ (p sd)