--- a/VerticalPanelView.st	Fri Jul 19 20:47:29 1996 +0200
+++ b/VerticalPanelView.st	Fri Jul 19 20:52:41 1996 +0200
@@ -885,6 +885,8 @@
 
     |sumOfHeights maxWidth maxHeight m2|
 
+    "/ If I have an explicit preferredExtent ..
+
     preferredExtent notNil ifTrue:[
         ^ preferredExtent
     ].
@@ -941,11 +943,11 @@
     m2 := margin * 2.
     ^ (maxWidth + m2) @ (sumOfHeights + m2)
 
-    "Modified: 29.5.1996 / 12:10:24 / cg"
+    "Modified: 19.7.1996 / 20:45:46 / cg"
 ! !
 
 !VerticalPanelView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.24 1996-07-17 12:23:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.25 1996-07-19 18:47:49 cg Exp $'
 ! !