Separator.st
changeset 3574 b841099afab3
parent 3286 91e2e2399b81
child 3819 298b060a5257
--- a/Separator.st	Sun Oct 26 21:12:17 2008 +0100
+++ b/Separator.st	Sun Oct 26 21:12:31 2008 +0100
@@ -228,7 +228,15 @@
 preferredExtent
     |e|
 
-    preferredExtent notNil ifTrue:[^ preferredExtent].
+    "/ If I have an explicit preferredExtent..
+    explicitExtent notNil ifTrue:[
+        ^ explicitExtent
+    ].
+
+    "/ If I have a cached preferredExtent value..
+    preferredExtent notNil ifTrue:[
+        ^ preferredExtent
+    ].
 
     e := super preferredExtent.
     orientation == #horizontal ifTrue:[
@@ -251,5 +259,5 @@
 !Separator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Separator.st,v 1.21 2007-11-28 14:07:15 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Separator.st,v 1.22 2008-10-26 20:12:31 stefan Exp $'
 ! !