--- a/VPanelV.st	Tue May 28 22:20:48 1996 +0200
+++ b/VPanelV.st	Wed May 29 12:20:58 1996 +0200
@@ -884,6 +884,10 @@
 
     |sumOfHeights maxWidth maxHeight m2|
 
+    preferredExtent notNil ifTrue:[
+        ^ preferredExtent
+    ].
+
     subViews isNil ifTrue:[^ horizontalSpace @ verticalSpace].
 
     "compute net height needed"
@@ -936,11 +940,11 @@
     m2 := margin * 2.
     ^ (maxWidth + m2) @ (sumOfHeights + m2)
 
-    "Modified: 22.2.1996 / 21:14:02 / cg"
+    "Modified: 29.5.1996 / 12:10:24 / cg"
 ! !
 
 !VerticalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VPanelV.st,v 1.22 1996-04-27 18:19:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VPanelV.st,v 1.23 1996-05-29 10:20:24 cg Exp $'
 ! !