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.
added rowHeight attribute
authorClaus Gittinger <cg@exept.de>
Mon, 07 Jan 2008 14:45:24 +0100
changeset 3529 bcf8c2053ac4
parent 3528 753b5270dc2a
child 3530 2cac95ddc118
added rowHeight attribute
VerticalPanelView.st file | annotate | diff | comparison | revisions 
--- a/VerticalPanelView.st	Tue Dec 18 14:06:31 2007 +0100
+++ b/VerticalPanelView.st	Mon Jan 07 14:45:24 2008 +0100
@@ -12,7 +12,7 @@
 "{ Package: 'stx:libwidg' }"
 
 PanelView subclass:#VerticalPanelView
-	instanceVariableNames:''
+	instanceVariableNames:'rowHeight'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Views-Layout'
@@ -116,473 +116,490 @@
 
 
     example: default layout (centered)
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
+
+        v := StandardSystemView new.
+        v label:'center (default)'.
+        p := VerticalPanelView in:v.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'b2' in:p.
+        b3 := Button label:'butt3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
+
 
-	v := StandardSystemView new.
-	v label:'center (default)'.
-	p := VerticalPanelView in:v.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'b2' in:p.
-	b3 := Button label:'butt3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+    example: rows
+                                                                        [exBegin]
+        |v p b1 b2 b3|
+
+        v := StandardSystemView new.
+        v label:'center (default)'.
+        p := VerticalPanelView in:v.
+        p rowHeight:50.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'b2' in:p.
+        b3 := Button label:'butt3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
 
     example: horizontal centerMax
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'hL=centerMax'.
-	p := VerticalPanelView in:v.
-	p horizontalLayout:#centerMax.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'b2' in:p.
-	b3 := Button label:'butt3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'hL=centerMax'.
+        p := VerticalPanelView in:v.
+        p horizontalLayout:#centerMax.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'b2' in:p.
+        b3 := Button label:'butt3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
 
     example: horizontal leftMax
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'hL=leftMax'.
-	p := VerticalPanelView in:v.
-	p horizontalLayout:#leftMax.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'b2' in:p.
-	b3 := Button label:'butt3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'hL=leftMax'.
+        p := VerticalPanelView in:v.
+        p horizontalLayout:#leftMax.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'b2' in:p.
+        b3 := Button label:'butt3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: horizontal leftSpaceMax
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'hL=leftMax'.
-	p := VerticalPanelView in:v.
-	p horizontalLayout:#leftSpaceMax.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'b2' in:p.
-	b3 := Button label:'butt3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'hL=leftMax'.
+        p := VerticalPanelView in:v.
+        p horizontalLayout:#leftSpaceMax.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'b2' in:p.
+        b3 := Button label:'butt3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: horizontal rightMax
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'hL=rightMax'.
-	p := VerticalPanelView in:v.
-	p horizontalLayout:#rightMax.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'b2' in:p.
-	b3 := Button label:'butt3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'hL=rightMax'.
+        p := VerticalPanelView in:v.
+        p horizontalLayout:#rightMax.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'b2' in:p.
+        b3 := Button label:'butt3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: horizontal rightSpaceMax
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'hL=rightMaxSpace'.
-	p := VerticalPanelView in:v.
-	p horizontalLayout:#rightSpaceMax.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'b2' in:p.
-	b3 := Button label:'butt3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'hL=rightMaxSpace'.
+        p := VerticalPanelView in:v.
+        p horizontalLayout:#rightSpaceMax.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'b2' in:p.
+        b3 := Button label:'butt3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: top-layout
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=top; hL=center (default)'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#top.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=top; hL=center (default)'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#top.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: topSpace-layout
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=topSpace; hL=center (default)'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#topSpace.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=topSpace; hL=center (default)'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#topSpace.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: top-layout; horizontal fit
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	p := VerticalPanelView in:v.
-	v label:'vL=top; hL=fit'.
-	p verticalLayout:#top.
-	p horizontalLayout:#fit.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        p := VerticalPanelView in:v.
+        v label:'vL=top; hL=fit'.
+        p verticalLayout:#top.
+        p horizontalLayout:#fit.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: top-layout; horizontal fit with space
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=top; hL=fitSpace'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#top.
-	p horizontalLayout:#fitSpace.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=top; hL=fitSpace'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#top.
+        p horizontalLayout:#fitSpace.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: topSpace-layout; horizontal fit with space
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=topSpace; hL=fitSpace'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#topSpace.
-	p horizontalLayout:#fitSpace.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=topSpace; hL=fitSpace'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#topSpace.
+        p horizontalLayout:#fitSpace.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: bottom-layout
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=bottom; hL=center (default)'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#bottom.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=bottom; hL=center (default)'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#bottom.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: bottomSpace-layout
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=bottomSpace; hL=center (default)'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#bottomSpace.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=bottomSpace; hL=center (default)'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#bottomSpace.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: topFit-layout
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=topFit; hL=center (default)'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#topFit.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=topFit; hL=center (default)'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#topFit.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: topSpaceFit-layout; combined with horizontal #fitSpace
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=topFit; hL=center (default)'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#topSpaceFit.
-	p horizontalLayout:#fitSpace.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=topFit; hL=center (default)'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#topSpaceFit.
+        p horizontalLayout:#fitSpace.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: bottomFit-layout (arrange at bottom; resize first to fit)
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=bottomFit; hL=center (default)'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#bottomFit.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=bottomFit; hL=center (default)'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#bottomFit.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: bottomSpaceFit-layout (arrange at bottom; resize first to fit; with spacing
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=bottomSpaceFit; hL=center (default)'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#bottomSpaceFit.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=bottomSpaceFit; hL=center (default)'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#bottomSpaceFit.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: spread-layout
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=spread; hL=center (default)'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#spread.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=spread; hL=center (default)'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#spread.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: spreadSpace-layout
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=spreadSpace; hL=center (default)'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#spreadSpace.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=spreadSpace; hL=center (default)'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#spreadSpace.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: fit-layout
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=fit; hL=center (default)'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#fit.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=fit; hL=center (default)'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#fit.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: fitSpace-layout
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=fitSpace; hL=center (default)'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#fitSpace.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=fitSpace; hL=center (default)'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#fitSpace.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: fully fitSpace
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=fitSpace; hL=fitSpace'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#fitSpace.
-	p horizontalLayout:#fitSpace.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=fitSpace; hL=fitSpace'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#fitSpace.
+        p horizontalLayout:#fitSpace.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: combine fully fitSpace with scaling button labels
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=fitSpace; hL=fitSpace'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#fitSpace.
-	p horizontalLayout:#fitSpace.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b1 adjust:#fit.
-	b2 := Button label:'butt2' in:p.
-	b2 adjust:#fit.
-	b3 := Button label:'button3' in:p.
-	b3 adjust:#fit.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=fitSpace; hL=fitSpace'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#fitSpace.
+        p horizontalLayout:#fitSpace.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b1 adjust:#fit.
+        b2 := Button label:'butt2' in:p.
+        b2 adjust:#fit.
+        b3 := Button label:'button3' in:p.
+        b3 adjust:#fit.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: from top, each at left:
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=top; hL=left'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#top.
-	p horizontalLayout:#left.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=top; hL=left'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#top.
+        p horizontalLayout:#left.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: center, right:
-									[exBegin]
-	|v p b1 b2 b3|
+                                                                        [exBegin]
+        |v p b1 b2 b3|
 
-	v := StandardSystemView new.
-	v label:'vL=center; hL=right'.
-	p := VerticalPanelView in:v.
-	p verticalLayout:#center.
-	p horizontalLayout:#right.
-	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	b1 := Button label:'button1' in:p.
-	b2 := Button label:'butt2' in:p.
-	b3 := Button label:'button3' in:p.
-	v extent:100 @ 300.
-	v open
-									[exEnd]
+        v := StandardSystemView new.
+        v label:'vL=center; hL=right'.
+        p := VerticalPanelView in:v.
+        p verticalLayout:#center.
+        p horizontalLayout:#right.
+        p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        b1 := Button label:'button1' in:p.
+        b2 := Button label:'butt2' in:p.
+        b3 := Button label:'button3' in:p.
+        v extent:100 @ 300.
+        v open
+                                                                        [exEnd]
 
     example: a panel in a panel
-									[exBegin]
-	|v hp p b1 b2 b3|
+                                                                        [exBegin]
+        |v hp p b1 b2 b3|
 
-	v := StandardSystemView new.
+        v := StandardSystemView new.
 
-	hp := HorizontalPanelView in:v.
-	hp verticalLayout:#fit.
-	hp horizontalLayout:#fitSpace.
-	hp origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+        hp := HorizontalPanelView in:v.
+        hp verticalLayout:#fit.
+        hp horizontalLayout:#fitSpace.
+        hp origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
 
-	1 to:3 do:[:i |
-	    p := VerticalPanelView in:hp.
-	    p borderWidth:0.
-	    p verticalLayout:#fitSpace.
-	    p horizontalLayout:#fit.
-	    b1 := Button label:('button1-' , i printString) in:p.
-	    b2 := Button label:('butt2-' , i printString) in:p.
-	    b3 := Button label:('button3-' , i printString) in:p.
-	].
+        1 to:3 do:[:i |
+            p := VerticalPanelView in:hp.
+            p borderWidth:0.
+            p verticalLayout:#fitSpace.
+            p horizontalLayout:#fit.
+            b1 := Button label:('button1-' , i printString) in:p.
+            b2 := Button label:('butt2-' , i printString) in:p.
+            b3 := Button label:('button3-' , i printString) in:p.
+        ].
 
-	v extent:300 @ 100.
-	v open
-									[exEnd]
+        v extent:300 @ 100.
+        v open
+                                                                        [exEnd]
 
     example: checkToggles in a panel
-									[exBegin]
-	|panel|
+                                                                        [exBegin]
+        |panel|
 
-	panel := VerticalPanelView new.
-	panel horizontalLayout:#left.
+        panel := VerticalPanelView new.
+        panel horizontalLayout:#left.
 
-	panel add:((CheckBox on:true asValue) label:'this is toggle number 1'; resize).
-	panel add:((CheckBox on:false asValue) label:'nr 2 '; resize).
-	panel add:((CheckBox on:true asValue) label:'number 3 '; resize).
+        panel add:((CheckBox on:true asValue) label:'this is toggle number 1'; resize).
+        panel add:((CheckBox on:false asValue) label:'nr 2 '; resize).
+        panel add:((CheckBox on:true asValue) label:'number 3 '; resize).
 
-	panel extent:(panel preferredExtent).
-	panel open
-									[exEnd]
+        panel extent:(panel preferredExtent).
+        panel open
+                                                                        [exEnd]
     example: the topFit & bottomFit layouts are great to combine
-	     labels or enterFields with a selectionInList or textView:
-									[exBegin]
-	|panel|
+             labels or enterFields with a selectionInList or textView:
+                                                                        [exBegin]
+        |panel|
 
-	panel := VerticalPanelView new.
-	panel horizontalLayout:#fit.
-	panel verticalLayout:#topFit.
+        panel := VerticalPanelView new.
+        panel horizontalLayout:#fit.
+        panel verticalLayout:#topFit.
 
-	panel add:(Label new label:'this is label number 1'; font:(Font family:'courier' size:16)).
-	panel add:(EditField new).
-	panel add:(Label new label:'this is label number 1').
-	panel add:(ScrollableView for:SelectionInListView).
+        panel add:(Label new label:'this is label number 1'; font:(Font family:'courier' size:16)).
+        panel add:(EditField new).
+        panel add:(Label new label:'this is label number 1').
+        panel add:(ScrollableView for:SelectionInListView).
 
-	panel extent:(panel preferredExtent).
-	panel open
-									[exEnd]
+        panel extent:(panel preferredExtent).
+        panel open
+                                                                        [exEnd]
 "
 ! !
 
@@ -650,6 +667,10 @@
     "Modified: 31.8.1995 / 23:08:54 / claus"
 !
 
+rowHeight:something
+    rowHeight := something.
+!
+
 verticalLayout
     "return the vertical layout as a symbol.
      the returned value is one of
@@ -943,15 +964,20 @@
 
         x2 := xpos + child width - 1.
 
-        (vL == #fit 
-        or:[vL == #fitSpace
-        or:[resizeToMaxV]]) ifTrue:[
-            child origin:(xpos @ (ypos rounded))
-                  corner:(x2 @ (ypos + hEach - bwChild - 1) rounded).
-            advance := hEach
+        rowHeight notNil ifTrue:[
+            child origin:(xpos@ypos).
+            advance := rowHeight
         ] ifFalse:[
-            child origin:(xpos@ypos).
-            advance := child heightIncludingBorder
+            (vL == #fit 
+            or:[vL == #fitSpace
+            or:[resizeToMaxV]]) ifTrue:[
+                child origin:(xpos @ (ypos rounded))
+                      corner:(x2 @ (ypos + hEach - bwChild - 1) rounded).
+                advance := hEach
+            ] ifFalse:[
+                child origin:(xpos@ypos).
+                advance := child heightIncludingBorder
+            ].
         ].
 
         index == numChilds ifTrue:[
@@ -1068,5 +1094,5 @@
 !VerticalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.42 2007-10-10 11:48:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.43 2008-01-07 13:45:24 cg Exp $'
 ! !
hg/stx-libwidg