HPanelV.st
changeset 793 12396da0e36e
parent 713 0c38ad51016d
child 797 2f9cd56f48ee
--- a/HPanelV.st	Wed Jul 17 12:09:58 1996 +0200
+++ b/HPanelV.st	Wed Jul 17 14:23:24 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Views-Layout'
 !
 
-!HorizontalPanelView class methodsFor:'documentation'!
+!HorizontalPanelView  class methodsFor:'documentation'!
 
 copyright
 "
@@ -1264,7 +1264,7 @@
             |x|
 
             (hL == #leftFit or:[hL == #leftSpaceFit]) ifTrue:[
-                x := width - margin - 1.
+                x := width - margin - 1 - (child borderWidth * 2) + borderWidth.
                 hL == #leftSpaceFit ifTrue:[
                     x := x - space
                 ]
@@ -1276,7 +1276,7 @@
     ].
 
     "Modified: 4.9.1995 / 18:43:10 / claus"
-    "Modified: 22.2.1996 / 21:25:54 / cg"
+    "Modified: 17.7.1996 / 11:47:58 / cg"
 ! !
 
 !HorizontalPanelView methodsFor:'queries'!
@@ -1349,8 +1349,8 @@
     "Modified: 29.5.1996 / 12:12:31 / cg"
 ! !
 
-!HorizontalPanelView class methodsFor:'documentation'!
+!HorizontalPanelView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HPanelV.st,v 1.24 1996-05-29 10:17:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HPanelV.st,v 1.25 1996-07-17 12:22:56 cg Exp $'
 ! !