--- a/VerticalPanelView.st Mon Sep 21 15:40:28 2009 +0200
+++ b/VerticalPanelView.st Mon Sep 21 23:07:48 2009 +0200
@@ -1002,7 +1002,7 @@
vL == #bottomSpaceFit ifTrue:[
ypos := ypos + space
].
- advance := y2.
+ advance := y2 ? 0.
child origin:((child origin x) @ ypos)
corner:((child corner x) @ (ypos+advance))
].
@@ -1107,5 +1107,5 @@
!VerticalPanelView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.48 2009-04-30 11:42:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.49 2009-09-21 21:07:48 cg Exp $'
! !