--- a/OptionBox.st	Sat Nov 10 00:32:45 2018 +0100
+++ b/OptionBox.st	Sat Nov 10 00:34:13 2018 +0100
@@ -756,21 +756,11 @@
 
 !OptionBox methodsFor:'queries'!
 
-preferredExtent
+computePreferredExtent
     "return a size to make everything fit into myself"
 
     |w w1 h buttonPanelsPref vPanelsPref mm|
 
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
     mm := ViewSpacing.
 
     vPanelsPref := verticalPanel preferredExtent.
@@ -792,10 +782,10 @@
         ].
     ].
 
-    preferredExtent := super preferredExtent max:(w @ h).
+    preferredExtent := super computePreferredExtent max:(w @ h).
     ^ preferredExtent
 
-    "Modified: 19.7.1996 / 20:45:11 / cg"
+    "Created: / 09-11-2018 / 19:58:19 / Claus Gittinger"
 ! !
 
 !OptionBox class methodsFor:'documentation'!