HorizontalPanelView.st
changeset 3737 5ef2b67ae860
parent 3686 de886bde6f31
child 3765 db70ef63cc02
--- a/HorizontalPanelView.st	Sat Oct 18 11:50:55 2008 +0200
+++ b/HorizontalPanelView.st	Sat Oct 18 22:18:25 2008 +0200
@@ -1269,9 +1269,13 @@
                       ] ifFalse:[
                         ((l == #left) or:[l == #leftSpace
                         or:[l == #leftFit or:[l == #leftSpaceFit]]]) ifTrue:[
-                            (l == #left or:[l == #leftFit]) ifTrue:[
-                                space := space min:(restWidth - m2) // (numChilds - 1).
-                            ] ifFalse:[
+                            (l == #left or:[l == #leftFit]) ifTrue:[                
+                                numChilds == 1 ifTrue: [
+                                    space := space min:(restWidth - m2).
+                                ]ifFalse:[
+                                    space := space min:(restWidth - m2) // (numChilds - 1).
+                                ].
+                            ] ifFalse:[                                                      
                                 space := space min:(restWidth - m2) // (numChilds "+ 1").
                             ].
                             (hL == #fixLeft or:[hL == #fixLeftSpace]) ifTrue:[
@@ -1525,5 +1529,5 @@
 !HorizontalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.57 2008-07-25 12:02:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.58 2008-10-18 20:18:25 ab Exp $'
 ! !