HorizontalPanelView.st
changeset 3765 db70ef63cc02
parent 3737 5ef2b67ae860
child 3778 c7257987a773
--- a/HorizontalPanelView.st	Sun Oct 26 21:13:17 2008 +0100
+++ b/HorizontalPanelView.st	Sun Oct 26 21:13:38 2008 +0100
@@ -1445,8 +1445,12 @@
 
     |sumOfWidths maxHeight maxWidth m2 subViews|
 
-    "/ If I have an explicit preferredExtent ..
+    "/ If I have an explicit preferredExtent..
+    explicitExtent notNil ifTrue:[
+        ^ explicitExtent
+    ].
 
+    "/ If I have a cached preferredExtent value..
     preferredExtent notNil ifTrue:[
         ^ preferredExtent
     ].
@@ -1529,5 +1533,5 @@
 !HorizontalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.58 2008-10-18 20:18:25 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.59 2008-10-26 20:13:38 stefan Exp $'
 ! !