FramedBox.st
changeset 3753 e56e38d631cd
parent 3673 e1c29dd73768
child 3862 9e8a1e58e9ca
--- a/FramedBox.st	Sun Oct 26 21:08:36 2008 +0100
+++ b/FramedBox.st	Sun Oct 26 21:09:17 2008 +0100
@@ -700,8 +700,12 @@
 
     |m2 sep|
 
-    "/ 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
     ].
@@ -761,5 +765,5 @@
 !FramedBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.49 2008-07-18 09:42:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.50 2008-10-26 20:09:17 stefan Exp $'
 ! !