Mercurial Mercurial > hg > stx-libwidg / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
VerticalPanelView.st
changeset 593 86dd024ed773
parent 585 8f395aba0173
child 713 0c38ad51016d 
--- a/VerticalPanelView.st	Sat Apr 27 20:13:37 1996 +0200
+++ b/VerticalPanelView.st	Sat Apr 27 20:21:37 1996 +0200
@@ -113,421 +113,424 @@
 
 
     example: default layout (centered)
-
-	|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
+        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: horizontal centerMax
-
-	|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
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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: spread-layout
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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
-
-	|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
-
+        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:
-
-	|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
-
+        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:
-
-	|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
-
+        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|
 
-	|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
-
+        v extent:300 @ 100.
+        v open
+                                                                        [exEnd]
 
     example: checkToggles in a panel
-
-	|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
+        panel extent:(panel preferredExtent).
+        panel open
+                                                                        [exEnd]
 "
 ! !
 
@@ -939,5 +942,5 @@
 !VerticalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.21 1996-04-25 17:25:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.22 1996-04-27 18:19:16 cg Exp $'
 ! !
hg/stx-libwidg