--- a/VerticalPanelView.st	Mon Feb 24 21:20:10 1997 +0100
+++ b/VerticalPanelView.st	Tue Feb 25 14:03:55 1997 +0100
@@ -652,10 +652,16 @@
     "(re)compute position of every child"
 
     |ypos space sumOfHeights numChilds l hEach hInside 
-     maxWidth resizeToMax hL m2 subViews|
+     maxWidth resizeToMax hL m2 subViews ext|
 
     subViews := self subViews.
-    subViews isNil ifTrue:[^ self].
+    subViews size == 0 ifTrue:[^ self].
+
+    extentChanged ifTrue:[
+        ext := self computeExtent.
+        width := ext x.
+        height := ext y.
+    ].
 
     space := verticalSpace.
     numChilds := subViews size.
@@ -958,5 +964,5 @@
 !VerticalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.28 1997-02-21 19:31:01 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.29 1997-02-25 13:03:55 ca Exp $'
 ! !