--- a/VPanelV.st	Wed Feb 12 01:24:34 1997 +0100
+++ b/VPanelV.st	Wed Feb 12 02:03:24 1997 +0100
@@ -827,6 +827,9 @@
                         ] ifFalse:[
                             hL == #fit ifTrue:[
                                 newWChild := width "- (bwChild * 2)".
+                                borderWidth == 0 ifTrue:[
+                                    newWChild :=  newWChild - (bwChild * 2)
+                                ].
                                 child level == 0 ifTrue:[
                                     xpos := margin - borderWidth.
                                     newWChild := newWChild - m2
@@ -951,5 +954,5 @@
 !VerticalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VPanelV.st,v 1.26 1997-01-28 17:05:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VPanelV.st,v 1.27 1997-02-12 01:03:24 ca Exp $'
 ! !