--- a/HorizontalPanelView.st	Tue Jun 06 06:16:07 1995 +0200
+++ b/HorizontalPanelView.st	Tue Jun 27 04:24:41 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.12 1995-06-06 04:13:45 claus Exp $
+$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.13 1995-06-27 02:23:06 claus Exp $
 '!
 
 !HorizontalPanelView class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.12 1995-06-06 04:13:45 claus Exp $
+$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.13 1995-06-27 02:23:06 claus Exp $
 "
 !
 
@@ -740,10 +740,17 @@
     (hLayout == #fit or:[hLayout == #fitSpace]) ifTrue:[
 	sumOfWidths := maxWidth * subViews size.
 	borderWidth ~~ 0 ifTrue:[
-	    sumOfWidths := sumOfWidths + (verticalSpace * 2).
+	    sumOfWidths := sumOfWidths + (horizontalSpace * 2).
 	]
     ] ifFalse:[
 	sumOfWidths := sumOfWidths + ((subViews size - 1) * horizontalSpace).
+	hLayout == #leftSpace ifTrue:[
+	    sumOfWidths := sumOfWidths + horizontalSpace
+	] ifFalse:[
+	    ((hLayout == #center) or:[hLayout == #spread]) ifTrue:[
+		sumOfWidths := sumOfWidths + (horizontalSpace * 2)
+	    ]
+	].
     ].
 
     ((vLayout == #topSpace) or:[vLayout == #bottomSpace]) ifTrue:[