--- a/VerticalPanelView.st	Tue Jan 28 12:45:04 1997 +0100
+++ b/VerticalPanelView.st	Tue Jan 28 18:05:55 1997 +0100
@@ -17,7 +17,7 @@
 	category:'Views-Layout'
 !
 
-!VerticalPanelView  class methodsFor:'documentation'!
+!VerticalPanelView class methodsFor:'documentation'!
 
 copyright
 "
@@ -651,8 +651,10 @@
 setChildPositions
     "(re)compute position of every child"
 
-    |ypos space sumOfHeights numChilds l hEach hInside maxWidth resizeToMax hL m2|
+    |ypos space sumOfHeights numChilds l hEach hInside 
+     maxWidth resizeToMax hL m2 subViews|
 
+    subViews := self subViews.
     subViews isNil ifTrue:[^ self].
 
     space := verticalSpace.
@@ -875,7 +877,7 @@
     ]
 
     "Modified: 4.9.1995 / 18:43:29 / claus"
-    "Modified: 17.7.1996 / 12:01:31 / cg"
+    "Modified: 28.1.1997 / 17:57:05 / cg"
 ! !
 
 !VerticalPanelView methodsFor:'queries'!
@@ -883,7 +885,7 @@
 preferredExtent
     "return a good extent, one that makes subviews fit"
 
-    |sumOfHeights maxWidth maxHeight m2|
+    |sumOfHeights maxWidth maxHeight m2 subViews|
 
     "/ If I have an explicit preferredExtent ..
 
@@ -891,7 +893,7 @@
         ^ preferredExtent
     ].
 
-    subViews isNil ifTrue:[^ horizontalSpace @ verticalSpace].
+    (subViews := self subViews) isNil ifTrue:[^ horizontalSpace @ verticalSpace].
 
     "compute net height needed"
 
@@ -943,11 +945,11 @@
     m2 := margin * 2.
     ^ (maxWidth + m2) @ (sumOfHeights + m2)
 
-    "Modified: 19.7.1996 / 20:45:46 / cg"
+    "Modified: 28.1.1997 / 17:56:45 / cg"
 ! !
 
-!VerticalPanelView  class methodsFor:'documentation'!
+!VerticalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.25 1996-07-19 18:47:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.26 1997-01-28 17:05:55 cg Exp $'
 ! !