Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
defaultExtent with bottomSpace forgot about spacing
authorClaus Gittinger <cg@exept.de>
Fri, 09 Feb 1996 18:57:17 +0100
changeset 341 7f5c67028a04
parent 340 f820bcd29a51
child 342 ddbe4e8d6e9f
defaultExtent with bottomSpace forgot about spacing
VPanelV.st file | annotate | diff | comparison | revisions
VerticalPanelView.st file | annotate | diff | comparison | revisions 
--- a/VPanelV.st	Fri Feb 09 18:56:54 1996 +0100
+++ b/VPanelV.st	Fri Feb 09 18:57:17 1996 +0100
@@ -886,7 +886,7 @@
         ]
     ] ifFalse:[
         sumOfHeights := sumOfHeights + ((subViews size - 1) * verticalSpace).
-        vLayout == #topSpace ifTrue:[
+        ((vLayout == #topSpace) or:[vLayout == #bottomSpace]) ifTrue:[
             sumOfHeights := sumOfHeights + verticalSpace
         ] ifFalse:[
             ((vLayout == #center) or:[vLayout == #spread]) ifTrue:[
@@ -904,11 +904,11 @@
     ].
     ^ maxWidth @ sumOfHeights
 
-    "Modified: 6.2.1996 / 14:31:20 / cg"
+    "Modified: 9.2.1996 / 18:56:07 / cg"
 ! !
 
 !VerticalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VPanelV.st,v 1.18 1996-02-06 20:46:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VPanelV.st,v 1.19 1996-02-09 17:57:17 cg Exp $'
 ! !
--- a/VerticalPanelView.st	Fri Feb 09 18:56:54 1996 +0100
+++ b/VerticalPanelView.st	Fri Feb 09 18:57:17 1996 +0100
@@ -886,7 +886,7 @@
         ]
     ] ifFalse:[
         sumOfHeights := sumOfHeights + ((subViews size - 1) * verticalSpace).
-        vLayout == #topSpace ifTrue:[
+        ((vLayout == #topSpace) or:[vLayout == #bottomSpace]) ifTrue:[
             sumOfHeights := sumOfHeights + verticalSpace
         ] ifFalse:[
             ((vLayout == #center) or:[vLayout == #spread]) ifTrue:[
@@ -904,11 +904,11 @@
     ].
     ^ maxWidth @ sumOfHeights
 
-    "Modified: 6.2.1996 / 14:31:20 / cg"
+    "Modified: 9.2.1996 / 18:56:07 / cg"
 ! !
 
 !VerticalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.18 1996-02-06 20:46:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.19 1996-02-09 17:57:17 cg Exp $'
 ! !
hg/stx-libwidg