--- a/VerticalPanelView.st	Sat Nov 10 00:28:43 2018 +0100
+++ b/VerticalPanelView.st	Sat Nov 10 00:28:55 2018 +0100
@@ -1062,24 +1062,14 @@
 
 !VerticalPanelView methodsFor:'queries'!
 
-preferredExtent
+computePreferredExtent
     "return a good extent, one that makes subviews fit"
 
     |sumOfHeights maxWidth maxHeight m2 subViews bw|
 
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
     subViews := self subViewsToConsider.
     (subViews size == 0) ifTrue:[
-        ^ super preferredExtent.
+        ^ super computePreferredExtent.
         "/ ^ horizontalSpace @ verticalSpace].
     ].
 
@@ -1143,7 +1133,7 @@
     m2 := margin * 2.
     ^ (maxWidth + m2) @ (sumOfHeights + m2)
 
-    "Modified: / 17.1.1998 / 00:18:16 / cg"
+    "Created: / 09-11-2018 / 20:03:55 / Claus Gittinger"
 ! !
 
 !VerticalPanelView class methodsFor:'documentation'!