--- a/FramedBox.st	Sat Nov 10 00:17:13 2018 +0100
+++ b/FramedBox.st	Sat Nov 10 00:17:32 2018 +0100
@@ -737,31 +737,21 @@
 
 !FramedBox methodsFor:'queries'!
 
-preferredExtent
+computePreferredExtent
     "compute the boxes preferredExtent from the components' sizes.
      Redefined to add space for the frame to the default extent" 
 
     |sep sep2|
 
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
     sep := gc font heightOn:device.
     sep2 := sep + sep.
 
     true "showFrame" ifFalse:[
-        ^ super preferredExtent + (0 @ sep2)
+        ^ super computePreferredExtent + (0 @ sep2)
     ].
-    ^ super preferredExtent + (sep2 @ sep2)
+    ^ super computePreferredExtent + (sep2 @ sep2)
 
-    "Modified: 3.1.1997 / 22:02:56 / cg"
+    "Created: / 09-11-2018 / 19:54:05 / Claus Gittinger"
 !
 
 viewRectangle