--- a/OptionBox.st	Tue Aug 04 17:19:27 2009 +0200
+++ b/OptionBox.st	Fri Sep 04 11:21:22 2009 +0200
@@ -667,7 +667,15 @@
          + buttonPanelsPref y
          + mm.
 
-    ^ w @ h
+    self subViews do:[:v |
+        (v ~~ verticalPanel and:[v ~~ buttonPanel]) ifTrue:[
+            h := h + v preferredExtent y.
+            w := w max:(v preferredExtent x).
+        ].
+    ].
+
+    preferredExtent := super preferredExtent max:(w @ h).
+    ^ preferredExtent
 
     "Modified: 19.7.1996 / 20:45:11 / cg"
 ! !
@@ -675,5 +683,5 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.68 2008-12-17 18:56:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.69 2009-09-04 09:21:22 cg Exp $'
 ! !