--- a/FramedBox.st	Tue May 28 22:20:48 1996 +0200
+++ b/FramedBox.st	Wed May 29 12:20:58 1996 +0200
@@ -591,6 +591,10 @@
 
     |m2 sep|
 
+    preferredExtent notNil ifTrue:[
+        ^ preferredExtent
+    ].
+
     sep := font height.
     m2 := sep + sep.
 
@@ -599,7 +603,7 @@
     ].
     ^ super preferredExtent+(m2 @ m2)
 
-    "Modified: 23.4.1996 / 00:15:04 / cg"
+    "Modified: 29.5.1996 / 12:12:40 / cg"
 !
 
 viewRectangle
@@ -646,5 +650,5 @@
 !FramedBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.25 1996-05-25 12:24:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.26 1996-05-29 10:17:11 cg Exp $'
 ! !