hg/stx-libwidg: VerticalPanelView.st@4233b9ff2cb6 (annotated)

0 e6a541c1c0eb Initial revision claus parents: diff changeset	1	"
5 7b4fb1b170e5 claus parents: 3 diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	3	All Rights Reserved
0 e6a541c1c0eb Initial revision claus parents: diff changeset	4
e6a541c1c0eb Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
e6a541c1c0eb Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
e6a541c1c0eb Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
e6a541c1c0eb Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
e6a541c1c0eb Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
e6a541c1c0eb Initial revision claus parents: diff changeset	10	hereby transferred.
e6a541c1c0eb Initial revision claus parents: diff changeset	11	"
2305 f2850e54b0ab only access originChanged, extentChanged and cornerChanged Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	12	"{ Package: 'stx:libwidg' }"
f2850e54b0ab only access originChanged, extentChanged and cornerChanged Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	13
0 e6a541c1c0eb Initial revision claus parents: diff changeset	14	PanelView subclass:#VerticalPanelView
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	15	instanceVariableNames:'rowHeight'
321 00c17944cb00 preferredExtent computation used hSpace instead of vSpace Claus Gittinger <cg@exept.de> parents: 205 diff changeset	16	classVariableNames:''
00c17944cb00 preferredExtent computation used hSpace instead of vSpace Claus Gittinger <cg@exept.de> parents: 205 diff changeset	17	poolDictionaries:''
00c17944cb00 preferredExtent computation used hSpace instead of vSpace Claus Gittinger <cg@exept.de> parents: 205 diff changeset	18	category:'Views-Layout'
0 e6a541c1c0eb Initial revision claus parents: diff changeset	19	!
e6a541c1c0eb Initial revision claus parents: diff changeset	20
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 797 diff changeset	21	!VerticalPanelView class methodsFor:'documentation'!
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	22
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	23	copyright
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	24	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	25	COPYRIGHT (c) 1989 by Claus Gittinger
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	26	All Rights Reserved
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	27
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	28	This software is furnished under a license and may be used
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	29	only in accordance with the terms of that license and with the
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	30	inclusion of the above copyright notice. This software may not
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	31	be provided or otherwise made available to, or used by, any
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	32	other person. No title to or ownership of the software is
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	33	hereby transferred.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	34	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	35	!
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	36
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	37	documentation
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	38	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	39	a View which arranges its child-views in a vertical column.
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	40	All real work is done in PanelView - except the layout computation is
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	41	redefined here.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	42
127 462396b08e30 . claus parents: 125 diff changeset	43	The layout is controlled by the instance variables:
1417 e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	44	horizontalLayout and verticalLayout
127 462396b08e30 . claus parents: 125 diff changeset	45	in addition to
1417 e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	46	horizontalSpace and verticalSpace.
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	47
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	48	The vertical layout can be any of:
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	49
1417 e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	50	#top arrange elements at the top
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	51	#topSpace arrange elements at the top, start with spacing
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	52	#bottom arrange elements at the bottom
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	53	#bottomSpace arrange elements at the bottom, start with spacing
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	54	#center arrange elements in the center; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	55	#spread spread elements evenly; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	56	#spreadSpace spread elements evenly with spacing at ends; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	57	#fit like #spread, but resize elements for tight packing; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	58	#fitSpace like #fit, with spacing; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	59	#topFit like #top, but resize the last element to fit
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	60	#topSpaceFit like #topSpace, but resize the last element to fit
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	61	#bottomFit like #bottom, but resize the first element to fit
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	62	#bottomSpaceFit like #bottomSpace, but resize the first element to fit
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	63
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	64	the horizontal layout can be:
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	65
1417 e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	66	#left place element at the left
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	67	#leftSpace place element at the left, offset by horizontalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	68	#center place elements horizontally centered; ignore horizontalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	69	#right place it at the right
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	70	#rightSpace place it at the right, offset by horizontalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	71	#fit resize elements horizontally to fit this panel; ignore horizontalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	72	#fitSpace like #fit, but add spacing; ignore horizontalSpace
127 462396b08e30 . claus parents: 125 diff changeset	73
1417 e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	74	#leftMax like #left, but resize elements to max of them
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	75	#leftSpaceMax like #leftSpace, but resize elements
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	76	#centerMax like #center, but resize elements
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	77	#rightMax like #right, but resize elements to max of them
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	78	#rightSpaceMax like #rightSpace, but resize elements
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	79
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	80	The defaults is #center for both directions.
127 462396b08e30 . claus parents: 125 diff changeset	81
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	82	The layout is changed by the messages #verticalLayout: and #horizontalLayout:.
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	83	For backward compatibility (to times, where only vLayout existed), the simple
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	84	#layout: does the same as #verticalLayout:. Do not use this old method.
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	85
127 462396b08e30 . claus parents: 125 diff changeset	86	The panel assumes, that the elements do not resize themselfes, after it
462396b08e30 . claus parents: 125 diff changeset	87	became visible. This is not true for all widgets (buttons or labels may
462396b08e30 . claus parents: 125 diff changeset	88	like to change). If you have changing elements, tell this to the panel
462396b08e30 . claus parents: 125 diff changeset	89	with 'aPanel elementsChangeSize:true'. In that case, the panel will react
462396b08e30 . claus parents: 125 diff changeset	90	to size changes, and reorganize things.
462396b08e30 . claus parents: 125 diff changeset	91
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	92	If none of these layout/space combinations is exactly what you need in
565b052f5277 * empty log message * claus parents: 65 diff changeset	93	your application, create a subclass, and redefine the setChildPositions method.
127 462396b08e30 . claus parents: 125 diff changeset	94
462396b08e30 . claus parents: 125 diff changeset	95	CAVEAT: this class started with #top and no horizontal alignments;
462396b08e30 . claus parents: 125 diff changeset	96	as time went by, more layouts were added and the setup should be changed
462396b08e30 . claus parents: 125 diff changeset	97	to use different selectors for space, max-resize and alignment
462396b08e30 . claus parents: 125 diff changeset	98	(i.e. having more and more layout symbols makes things a bit confusing ...)
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 380 diff changeset	99
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 380 diff changeset	100	[see also:]
1417 e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	101	HorizontalPanelView
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	102	VariableVerticalPanel VariableHorizontalPanel
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	103	Label
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 380 diff changeset	104
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 380 diff changeset	105	[author:]
1417 e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	106	Claus Gittinger
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	107	"
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	108	!
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	109
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	110	examples
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	111	"
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	112	These examples demonstrate the effect of different layout
565b052f5277 * empty log message * claus parents: 65 diff changeset	113	settings.
565b052f5277 * empty log message * claus parents: 65 diff changeset	114	You should try more examples, combining spacing and different
565b052f5277 * empty log message * claus parents: 65 diff changeset	115	verticalLayout:/horizontalLayout: combinations.
565b052f5277 * empty log message * claus parents: 65 diff changeset	116
565b052f5277 * empty log message * claus parents: 65 diff changeset	117
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	118	example: default layout (centered)
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	119	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	120	\|v p b1 b2 b3\|
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	121
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	122	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	123	v label:'center (default)'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	124	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	125	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	126	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	127	b2 := Button label:'b2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	128	b3 := Button label:'butt3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	129	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	130	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	131	[exEnd]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	132
127 462396b08e30 . claus parents: 125 diff changeset	133
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	134	example: rows
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	135	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	136	\|v p b1 b2 b3\|
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	137
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	138	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	139	v label:'center (default)'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	140	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	141	p rowHeight:50.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	142	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	143	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	144	b2 := Button label:'b2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	145	b3 := Button label:'butt3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	146	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	147	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	148	[exEnd]
127 462396b08e30 . claus parents: 125 diff changeset	149
462396b08e30 . claus parents: 125 diff changeset	150
462396b08e30 . claus parents: 125 diff changeset	151	example: horizontal centerMax
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	152	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	153	\|v p b1 b2 b3\|
127 462396b08e30 . claus parents: 125 diff changeset	154
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	155	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	156	v label:'hL=centerMax'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	157	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	158	p horizontalLayout:#centerMax.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	159	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	160	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	161	b2 := Button label:'b2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	162	b3 := Button label:'butt3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	163	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	164	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	165	[exEnd]
127 462396b08e30 . claus parents: 125 diff changeset	166
462396b08e30 . claus parents: 125 diff changeset	167
462396b08e30 . claus parents: 125 diff changeset	168	example: horizontal leftMax
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	169	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	170	\|v p b1 b2 b3\|
127 462396b08e30 . claus parents: 125 diff changeset	171
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	172	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	173	v label:'hL=leftMax'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	174	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	175	p horizontalLayout:#leftMax.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	176	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	177	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	178	b2 := Button label:'b2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	179	b3 := Button label:'butt3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	180	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	181	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	182	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	183
127 462396b08e30 . claus parents: 125 diff changeset	184	example: horizontal leftSpaceMax
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	185	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	186	\|v p b1 b2 b3\|
127 462396b08e30 . claus parents: 125 diff changeset	187
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	188	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	189	v label:'hL=leftMax'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	190	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	191	p horizontalLayout:#leftSpaceMax.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	192	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	193	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	194	b2 := Button label:'b2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	195	b3 := Button label:'butt3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	196	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	197	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	198	[exEnd]
127 462396b08e30 . claus parents: 125 diff changeset	199
462396b08e30 . claus parents: 125 diff changeset	200	example: horizontal rightMax
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	201	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	202	\|v p b1 b2 b3\|
127 462396b08e30 . claus parents: 125 diff changeset	203
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	204	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	205	v label:'hL=rightMax'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	206	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	207	p horizontalLayout:#rightMax.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	208	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	209	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	210	b2 := Button label:'b2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	211	b3 := Button label:'butt3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	212	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	213	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	214	[exEnd]
127 462396b08e30 . claus parents: 125 diff changeset	215
462396b08e30 . claus parents: 125 diff changeset	216	example: horizontal rightSpaceMax
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	217	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	218	\|v p b1 b2 b3\|
127 462396b08e30 . claus parents: 125 diff changeset	219
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	220	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	221	v label:'hL=rightMaxSpace'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	222	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	223	p horizontalLayout:#rightSpaceMax.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	224	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	225	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	226	b2 := Button label:'b2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	227	b3 := Button label:'butt3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	228	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	229	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	230	[exEnd]
0 e6a541c1c0eb Initial revision claus parents: diff changeset	231
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	232	example: top-layout
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	233	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	234	\|v p b1 b2 b3\|
127 462396b08e30 . claus parents: 125 diff changeset	235
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	236	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	237	v label:'vL=top; hL=center (default)'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	238	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	239	p verticalLayout:#top.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	240	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	241	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	242	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	243	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	244	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	245	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	246	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	247
127 462396b08e30 . claus parents: 125 diff changeset	248	example: topSpace-layout
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	249	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	250	\|v p b1 b2 b3\|
127 462396b08e30 . claus parents: 125 diff changeset	251
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	252	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	253	v label:'vL=topSpace; hL=center (default)'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	254	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	255	p verticalLayout:#topSpace.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	256	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	257	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	258	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	259	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	260	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	261	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	262	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	263
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	264	example: top-layout; horizontal fit
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	265	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	266	\|v p b1 b2 b3\|
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	267
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	268	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	269	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	270	v label:'vL=top; hL=fit'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	271	p verticalLayout:#top.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	272	p horizontalLayout:#fit.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	273	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	274	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	275	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	276	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	277	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	278	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	279	[exEnd]
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	280
565b052f5277 * empty log message * claus parents: 65 diff changeset	281	example: top-layout; horizontal fit with space
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	282	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	283	\|v p b1 b2 b3\|
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	284
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	285	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	286	v label:'vL=top; hL=fitSpace'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	287	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	288	p verticalLayout:#top.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	289	p horizontalLayout:#fitSpace.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	290	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	291	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	292	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	293	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	294	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	295	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	296	[exEnd]
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	297
127 462396b08e30 . claus parents: 125 diff changeset	298	example: topSpace-layout; horizontal fit with space
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	299	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	300	\|v p b1 b2 b3\|
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	301
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	302	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	303	v label:'vL=topSpace; hL=fitSpace'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	304	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	305	p verticalLayout:#topSpace.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	306	p horizontalLayout:#fitSpace.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	307	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	308	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	309	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	310	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	311	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	312	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	313	[exEnd]
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	314
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	315	example: bottom-layout
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	316	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	317	\|v p b1 b2 b3\|
0 e6a541c1c0eb Initial revision claus parents: diff changeset	318
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	319	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	320	v label:'vL=bottom; hL=center (default)'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	321	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	322	p verticalLayout:#bottom.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	323	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	324	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	325	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	326	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	327	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	328	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	329	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	330
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	331	example: bottomSpace-layout
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	332	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	333	\|v p b1 b2 b3\|
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	334
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	335	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	336	v label:'vL=bottomSpace; hL=center (default)'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	337	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	338	p verticalLayout:#bottomSpace.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	339	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	340	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	341	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	342	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	343	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	344	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	345	[exEnd]
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	346
133 e58c7c979f33 . claus parents: 131 diff changeset	347	example: topFit-layout
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	348	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	349	\|v p b1 b2 b3\|
133 e58c7c979f33 . claus parents: 131 diff changeset	350
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	351	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	352	v label:'vL=topFit; hL=center (default)'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	353	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	354	p verticalLayout:#topFit.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	355	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	356	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	357	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	358	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	359	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	360	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	361	[exEnd]
133 e58c7c979f33 . claus parents: 131 diff changeset	362
e58c7c979f33 . claus parents: 131 diff changeset	363	example: topSpaceFit-layout; combined with horizontal #fitSpace
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	364	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	365	\|v p b1 b2 b3\|
133 e58c7c979f33 . claus parents: 131 diff changeset	366
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	367	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	368	v label:'vL=topFit; hL=center (default)'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	369	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	370	p verticalLayout:#topSpaceFit.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	371	p horizontalLayout:#fitSpace.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	372	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	373	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	374	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	375	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	376	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	377	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	378	[exEnd]
133 e58c7c979f33 . claus parents: 131 diff changeset	379
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	380	example: bottomFit-layout (arrange at bottom; resize first to fit)
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	381	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	382	\|v p b1 b2 b3\|
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	383
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	384	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	385	v label:'vL=bottomFit; hL=center (default)'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	386	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	387	p verticalLayout:#bottomFit.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	388	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	389	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	390	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	391	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	392	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	393	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	394	[exEnd]
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	395
f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	396	example: bottomSpaceFit-layout (arrange at bottom; resize first to fit; with spacing
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	397	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	398	\|v p b1 b2 b3\|
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	399
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	400	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	401	v label:'vL=bottomSpaceFit; hL=center (default)'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	402	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	403	p verticalLayout:#bottomSpaceFit.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	404	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	405	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	406	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	407	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	408	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	409	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	410	[exEnd]
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	411
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	412	example: spread-layout
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	413	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	414	\|v p b1 b2 b3\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	415
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	416	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	417	v label:'vL=spread; hL=center (default)'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	418	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	419	p verticalLayout:#spread.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	420	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	421	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	422	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	423	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	424	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	425	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	426	[exEnd]
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	427
565b052f5277 * empty log message * claus parents: 65 diff changeset	428	example: spreadSpace-layout
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	429	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	430	\|v p b1 b2 b3\|
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	431
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	432	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	433	v label:'vL=spreadSpace; hL=center (default)'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	434	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	435	p verticalLayout:#spreadSpace.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	436	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	437	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	438	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	439	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	440	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	441	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	442	[exEnd]
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	443
565b052f5277 * empty log message * claus parents: 65 diff changeset	444	example: fit-layout
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	445	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	446	\|v p b1 b2 b3\|
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	447
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	448	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	449	v label:'vL=fit; hL=center (default)'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	450	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	451	p verticalLayout:#fit.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	452	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	453	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	454	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	455	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	456	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	457	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	458	[exEnd]
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	459
565b052f5277 * empty log message * claus parents: 65 diff changeset	460	example: fitSpace-layout
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	461	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	462	\|v p b1 b2 b3\|
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	463
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	464	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	465	v label:'vL=fitSpace; hL=center (default)'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	466	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	467	p verticalLayout:#fitSpace.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	468	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	469	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	470	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	471	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	472	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	473	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	474	[exEnd]
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	475
565b052f5277 * empty log message * claus parents: 65 diff changeset	476	example: fully fitSpace
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	477	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	478	\|v p b1 b2 b3\|
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	479
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	480	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	481	v label:'vL=fitSpace; hL=fitSpace'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	482	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	483	p verticalLayout:#fitSpace.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	484	p horizontalLayout:#fitSpace.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	485	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	486	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	487	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	488	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	489	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	490	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	491	[exEnd]
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	492
131 208fa92f434d . claus parents: 130 diff changeset	493	example: combine fully fitSpace with scaling button labels
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	494	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	495	\|v p b1 b2 b3\|
131 208fa92f434d . claus parents: 130 diff changeset	496
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	497	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	498	v label:'vL=fitSpace; hL=fitSpace'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	499	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	500	p verticalLayout:#fitSpace.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	501	p horizontalLayout:#fitSpace.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	502	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	503	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	504	b1 adjust:#fit.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	505	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	506	b2 adjust:#fit.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	507	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	508	b3 adjust:#fit.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	509	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	510	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	511	[exEnd]
131 208fa92f434d . claus parents: 130 diff changeset	512
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	513	example: from top, each at left:
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	514	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	515	\|v p b1 b2 b3\|
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	516
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	517	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	518	v label:'vL=top; hL=left'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	519	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	520	p verticalLayout:#top.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	521	p horizontalLayout:#left.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	522	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	523	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	524	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	525	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	526	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	527	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	528	[exEnd]
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	529
127 462396b08e30 . claus parents: 125 diff changeset	530	example: center, right:
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	531	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	532	\|v p b1 b2 b3\|
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	533
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	534	v := StandardSystemView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	535	v label:'vL=center; hL=right'.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	536	p := VerticalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	537	p verticalLayout:#center.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	538	p horizontalLayout:#right.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	539	p origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	540	b1 := Button label:'button1' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	541	b2 := Button label:'butt2' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	542	b3 := Button label:'button3' in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	543	v extent:100 @ 300.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	544	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	545	[exEnd]
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	546
565b052f5277 * empty log message * claus parents: 65 diff changeset	547	example: a panel in a panel
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	548	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	549	\|v hp p b1 b2 b3\|
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	550
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	551	v := StandardSystemView new.
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	552
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	553	hp := HorizontalPanelView in:v.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	554	hp verticalLayout:#fit.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	555	hp horizontalLayout:#fitSpace.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	556	hp origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	557
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	558	1 to:3 do:[:i \|
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	559	p := VerticalPanelView in:hp.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	560	p borderWidth:0.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	561	p verticalLayout:#fitSpace.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	562	p horizontalLayout:#fit.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	563	b1 := Button label:('button1-' , i printString) in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	564	b2 := Button label:('butt2-' , i printString) in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	565	b3 := Button label:('button3-' , i printString) in:p.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	566	].
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	567
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	568	v extent:300 @ 100.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	569	v open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	570	[exEnd]
0 e6a541c1c0eb Initial revision claus parents: diff changeset	571
125 3ffa271732f7 . claus parents: 77 diff changeset	572	example: checkToggles in a panel
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	573	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	574	\|panel\|
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	575
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	576	panel := VerticalPanelView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	577	panel horizontalLayout:#left.
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	578
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	579	panel add:((CheckBox on:true asValue) label:'this is toggle number 1'; resize).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	580	panel add:((CheckBox on:false asValue) label:'nr 2 '; resize).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	581	panel add:((CheckBox on:true asValue) label:'number 3 '; resize).
0 e6a541c1c0eb Initial revision claus parents: diff changeset	582
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	583	panel extent:(panel preferredExtent).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	584	panel open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	585	[exEnd]
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	586	example: the topFit & bottomFit layouts are great to combine
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	587	labels or enterFields with a selectionInList or textView:
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	588	[exBegin]
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	589	\|panel\|
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	590
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	591	panel := VerticalPanelView new.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	592	panel horizontalLayout:#fit.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	593	panel verticalLayout:#topFit.
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	594
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	595	panel add:(Label new label:'this is label number 1'; font:(Font family:'courier' size:16)).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	596	panel add:(EditField new).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	597	panel add:(Label new label:'this is label number 1').
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	598	panel add:(ScrollableView for:SelectionInListView).
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	599
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	600	panel extent:(panel preferredExtent).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	601	panel open
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	602	[exEnd]
125 3ffa271732f7 . claus parents: 77 diff changeset	603	"
202 01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	604	! !
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	605
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	606	!VerticalPanelView methodsFor:'accessing'!
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	607
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	608	horizontalLayout
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	609	"return the horizontal layout as symbol.
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	610	the returned value is one of
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	611	#left place element at the left
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	612	#leftSpace place element at the left, offset by horizontalSpace
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	613	#center place elements horizontally centered; ignore horizontalSpace
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	614	#right place it at the right
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	615	#rightSpace place it at the right, offset by horizontalSpace
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	616	#fit resize elements horizontally to fit this panel; ignore horizontalSpace
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	617	#fitSpace like #fit, but add spacing; ignore horizontalSpace
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	618
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	619	#leftMax like #left, but resize elements to max of them
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	620	#leftSpaceMax like #leftSpace, but resize elements
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	621	#centerMax like #center, but resize elements
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	622	#rightMax like #right, but resize elements to max of them
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	623	#rightSpaceMax like #rightSpace, but resize elements
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	624	the default is #centered
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	625	"
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	626
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	627	^ hLayout
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	628	!
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	629
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	630	horizontalLayout:aSymbol
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	631	"change the horizontal layout as symbol.
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	632	The argument, aSymbol must be one of:
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	633	#left place element at the left
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	634	#leftSpace place element at the left, offset by horizontalSpace
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	635	#center place elements horizontally centered; ignore horizontalSpace
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	636	#right place it at the right
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	637	#rightSpace place it at the right, offset by horizontalSpace
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	638	#fit resize elements horizontally to fit this panel; ignore horizontalSpace
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	639	#fitSpace like #fit, but add spacing; ignore horizontalSpace
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	640
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	641	#leftMax like #left, but resize elements to max of them
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	642	#leftSpaceMax like #leftSpace, but resize elements
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	643	#centerMax like #center, but resize elements
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	644	#rightMax like #right, but resize elements to max of them
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	645	#rightSpaceMax like #rightSpace, but resize elements
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	646	the default (if never changed) is #centered
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	647	"
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	648
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	649	(hLayout ~~ aSymbol) ifTrue:[
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	650	hLayout := aSymbol.
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	651	self layoutChanged
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	652	]
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	653	!
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	654
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	655	layout:something
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	656	"OBSOLETE compatibility interface. Will vanish.
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	657	leftover for historic reasons - do not use any more.
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	658	In the meantime, try to figure out what is meant ... a kludge"
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	659
2370 d118a160afbe Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 2305 diff changeset	660	<resource:#obsolete>
d118a160afbe Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 2305 diff changeset	661
202 01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	662	something isLayout ifTrue:[^ super layout:something].
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	663
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	664	self obsoleteMethodWarning:'use #verticalLayout:'.
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	665	^ self verticalLayout:something
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	666
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	667	"Modified: 31.8.1995 / 23:08:54 / claus"
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	668	!
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	669
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	670	rowHeight:something
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	671	rowHeight := something.
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	672	!
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	673
202 01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	674	verticalLayout
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	675	"return the vertical layout as a symbol.
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	676	the returned value is one of
1417 e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	677	#top arrange elements at the top
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	678	#topSpace arrange elements at the top, start with spacing
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	679	#bottom arrange elements at the bottom
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	680	#bottomSpace arrange elements at the bottom, start with spacing
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	681	#center arrange elements in the center; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	682	#spread spread elements evenly; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	683	#spreadSpace spread elements evenly with spacing at ends; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	684	#fit like #spread, but resize elements for tight packing; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	685	#fitSpace like #fit, with spacing; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	686	#topFit like #top, but resize the last element to fit
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	687	#topSpaceFit like #topSpace, but resize the last element to fit
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	688	#bottomFit like #bottom, but resize the first element to fit
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	689	#bottomSpaceFit like #bottomSpace, but extend the first element to fit
202 01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	690	the default is #centered
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	691	"
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	692
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	693	^ vLayout
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	694
f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	695	"Modified: 17.8.1997 / 15:20:13 / cg"
202 01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	696	!
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	697
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	698	verticalLayout:aSymbol
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	699	"change the vertical layout as a symbol.
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	700	The argument, aSymbol must be one of:
1417 e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	701	#top arrange elements at the top
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	702	#topSpace arrange elements at the top, start with spacing
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	703	#bottom arrange elements at the bottom
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	704	#bottomSpace arrange elements at the bottom, start with spacing
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	705	#center arrange elements in the center; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	706	#spread spread elements evenly; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	707	#spreadSpace spread elements evenly with spacing at ends; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	708	#fit like #spread, but resize elements for tight packing; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	709	#fitSpace like #fit, with spacing; ignore verticalSpace
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	710	#topFit like #top, but resize the last element to fit
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	711	#topSpaceFit like #topSpace, but resize the last element to fit
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	712	#bottomFit like #bottom, but resize the first element to fit
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	713	#bottomSpaceFit like #bottomSpace, but extend the first element to fit
202 01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	714	the default (if never changed) is #centered
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	715	"
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	716
01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	717	(vLayout ~~ aSymbol) ifTrue:[
1417 e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	718	vLayout := aSymbol.
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	719	self layoutChanged
202 01f3cbb8e20e checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	720	]
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	721
f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	722	"Modified: 17.8.1997 / 15:19:58 / cg"
0 e6a541c1c0eb Initial revision claus parents: diff changeset	723	! !
e6a541c1c0eb Initial revision claus parents: diff changeset	724
e6a541c1c0eb Initial revision claus parents: diff changeset	725	!VerticalPanelView methodsFor:'layout'!
e6a541c1c0eb Initial revision claus parents: diff changeset	726
e6a541c1c0eb Initial revision claus parents: diff changeset	727	setChildPositions
e6a541c1c0eb Initial revision claus parents: diff changeset	728	"(re)compute position of every child"
e6a541c1c0eb Initial revision claus parents: diff changeset	729
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	730	\|ypos space sumOfHeights numChilds l hEach hInside hL vL
f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	731	maxWidth maxHeight resizeToMaxV resizeToMaxH m2 subViews ext restHeight\|
0 e6a541c1c0eb Initial revision claus parents: diff changeset	732
1417 e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	733	subViews := self subViewsToConsider.
1042 5914ecc423e1 care for sizing with no subviews; ca parents: 1038 diff changeset	734	subViews size == 0 ifTrue:[^ self].
5914ecc423e1 care for sizing with no subviews; ca parents: 1038 diff changeset	735
3502 5dd1d5b01e4d changed #setChildPositions ca parents: 3118 diff changeset	736	"/ self extentChangedFlag ifTrue:[
5dd1d5b01e4d changed #setChildPositions ca parents: 3118 diff changeset	737	"/ ext := self computeExtent.
5dd1d5b01e4d changed #setChildPositions ca parents: 3118 diff changeset	738	"/ width := ext x.
5dd1d5b01e4d changed #setChildPositions ca parents: 3118 diff changeset	739	"/ height := ext y.
5dd1d5b01e4d changed #setChildPositions ca parents: 3118 diff changeset	740	"/ ].
0 e6a541c1c0eb Initial revision claus parents: diff changeset	741
e6a541c1c0eb Initial revision claus parents: diff changeset	742	space := verticalSpace.
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	743	numChilds := subViews size.
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	744
380 6eb402d01ae0 looks better if panels level is ~~ 0 AND subview has 0 level Claus Gittinger <cg@exept.de> parents: 341 diff changeset	745	m2 := margin * 2.
6eb402d01ae0 looks better if panels level is ~~ 0 AND subview has 0 level Claus Gittinger <cg@exept.de> parents: 341 diff changeset	746	hInside := height - m2 + (borderWidth*2) - subViews last borderWidth.
0 e6a541c1c0eb Initial revision claus parents: diff changeset	747
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	748	hL := hLayout.
f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	749	vL := vLayout.
f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	750
f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	751	resizeToMaxV := false.
f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	752	(vL endsWith:'Max') ifTrue:[
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	753	resizeToMaxV := true.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	754	hEach := maxHeight := subViews inject:0 into:[:maxSoFar :child \| maxSoFar max:child heightIncludingBorder].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	755	vL := (vL copyWithoutLast:3) asSymbol.
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	756	].
f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	757
f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	758	numChilds == 1 ifTrue:[
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	759	(vL == #topFit or:[vL == #bottomFit]) ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	760	vL := #fit
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	761	].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	762	(vL == #topSpaceFit or:[vL == #bottomSpaceFit]) ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	763	vL := #fitSpace
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	764	].
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	765	].
f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	766
f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	767	vL == #fitSpace ifTrue:[
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	768	"
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	769	adjust childs extents and set origins.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	770	Be careful to avoid accumulation of rounding errors
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	771	"
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	772	hEach := (hInside - (numChilds + 1 * space)) / numChilds.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	773	ypos := space + margin - borderWidth.
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	774	] ifFalse:[
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	775	vL == #fit ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	776	"
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	777	adjust childs extents and set origins.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	778	Be careful to avoid accumulation of rounding errors
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	779	"
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	780	hEach := (hInside - (numChilds - 1 * space)) / numChilds.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	781	ypos := margin - borderWidth.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	782	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	783	l := vL.
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	784
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	785	"
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	786	compute net height needed
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	787	"
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	788	resizeToMaxV ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	789	sumOfHeights := subViews inject:0 into:[:sumSoFar :child \| sumSoFar + maxHeight + (child borderWidth*2)].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	790	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	791	sumOfHeights := subViews inject:0 into:[:sumSoFar :child \| sumSoFar + child heightIncludingBorder].
2031 6f28b9951713 oops - bug in setChildPositions leading to recursion Claus Gittinger <cg@exept.de> parents: 1431 diff changeset	792
6f28b9951713 oops - bug in setChildPositions leading to recursion Claus Gittinger <cg@exept.de> parents: 1431 diff changeset	793	"/ adjust - do not include height of last(first) element if doing a fit
6f28b9951713 oops - bug in setChildPositions leading to recursion Claus Gittinger <cg@exept.de> parents: 1431 diff changeset	794	(vL == #topFit or:[vL == #topSpaceFit]) ifTrue:[
6f28b9951713 oops - bug in setChildPositions leading to recursion Claus Gittinger <cg@exept.de> parents: 1431 diff changeset	795	sumOfHeights := sumOfHeights - subViews last heightIncludingBorder.
6f28b9951713 oops - bug in setChildPositions leading to recursion Claus Gittinger <cg@exept.de> parents: 1431 diff changeset	796	] ifFalse:[
6f28b9951713 oops - bug in setChildPositions leading to recursion Claus Gittinger <cg@exept.de> parents: 1431 diff changeset	797	(vL == #bottomFit or:[vL == #bottomSpaceFit]) ifTrue:[
6f28b9951713 oops - bug in setChildPositions leading to recursion Claus Gittinger <cg@exept.de> parents: 1431 diff changeset	798	sumOfHeights := sumOfHeights - subViews first heightIncludingBorder.
6f28b9951713 oops - bug in setChildPositions leading to recursion Claus Gittinger <cg@exept.de> parents: 1431 diff changeset	799	]
6f28b9951713 oops - bug in setChildPositions leading to recursion Claus Gittinger <cg@exept.de> parents: 1431 diff changeset	800	].
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	801	].
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	802
3675 dc94ab5c7abb spacing computation fixed (boundary condition, spacing reduction) Claus Gittinger <cg@exept.de> parents: 3529 diff changeset	803	restHeight := height - sumOfHeights "- (numChilds-1*space)".
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	804	((l == #center) and:[numChilds == 1]) ifTrue:[l := #spread].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	805	(l == #spread and:[numChilds == 1]) ifTrue:[l := #spreadSpace].
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	806
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	807	"
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	808	compute position of topmost subview and space between them;
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	809	if they do hardly fit, leave no space between them
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	810	"
3675 dc94ab5c7abb spacing computation fixed (boundary condition, spacing reduction) Claus Gittinger <cg@exept.de> parents: 3529 diff changeset	811	((sumOfHeights > (height - m2))
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	812	and:[l ~~ #fixTopSpace and:[l ~~ #fixTop]]) ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	813	"
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	814	if we have not enough space for all the elements,
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	815	fill them tight, and show what can be shown (at least)
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	816	"
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	817	ypos := margin.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	818	space := 0
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	819	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	820	l == #fixTopSpace ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	821	l := #topSpace
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	822	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	823	l == #fixTop ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	824	l := #top
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	825	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	826	].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	827	((l == #bottom) or:[l == #bottomSpace
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	828	or:[l == #bottomFit or:[l == #bottomSpaceFit]]]) ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	829	ypos := restHeight - (space * (numChilds - 1)).
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	830	"/
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	831	"/ borderWidth == 0 ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	832	"/ ypos := ypos + space
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	833	"/ ].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	834	"/
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	835	(l == #bottomSpace
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	836	or:[l == #bottomSpaceFit]) ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	837	ypos >= space ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	838	ypos := ypos - space
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	839	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	840	].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	841	ypos := ypos - margin.
77 565b052f5277 * empty log message * claus parents: 65 diff changeset	842
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	843	ypos < 0 ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	844	space := space min:(restHeight // (numChilds + 1)).
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	845	ypos := restHeight - (space * numChilds).
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	846	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	847	] ifFalse: [
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	848	(l == #spread) ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	849	space := (restHeight - m2) // (numChilds - 1).
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	850	ypos := margin.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	851	(space == 0) ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	852	ypos := restHeight // 2
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	853	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	854	] ifFalse: [
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	855	(l == #spreadSpace) ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	856	space := (restHeight - m2) // (numChilds + 1).
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	857	ypos := space + margin.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	858	(space == 0) ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	859	ypos := restHeight // 2
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	860	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	861	] ifFalse: [
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	862	((l == #top) or:[l == #topSpace
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	863	or:[l == #topFit or:[l == #topSpaceFit]]]) ifTrue:[
3675 dc94ab5c7abb spacing computation fixed (boundary condition, spacing reduction) Claus Gittinger <cg@exept.de> parents: 3529 diff changeset	864	(l == #top or:[l == #topFit]) ifTrue:[
3679 3e521d5a375e changed #setChildPositions Claus Gittinger <cg@exept.de> parents: 3678 diff changeset	865	space := space min:((restHeight - m2) // numChilds).
3675 dc94ab5c7abb spacing computation fixed (boundary condition, spacing reduction) Claus Gittinger <cg@exept.de> parents: 3529 diff changeset	866	] ifFalse:[
3679 3e521d5a375e changed #setChildPositions Claus Gittinger <cg@exept.de> parents: 3678 diff changeset	867	space := space min:((restHeight - m2) // (numChilds + 1)).
3675 dc94ab5c7abb spacing computation fixed (boundary condition, spacing reduction) Claus Gittinger <cg@exept.de> parents: 3529 diff changeset	868	].
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	869	(vL == #fixTop or:[vL == #fixTopSpace]) ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	870	space := space max:verticalSpace.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	871	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	872	space := space max:0.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	873	].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	874	(l == #topSpace or:[l == #topSpaceFit]) ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	875	ypos := space + margin.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	876	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	877	"/
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	878	"/ if the very first view has a 0-level AND
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	879	"/ my level is non-zero, begin with margin
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	880	"/
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	881	true "(margin ~~ 0 and:[subViews first level == 0])" ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	882	ypos := margin
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	883	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	884	ypos := 0
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	885	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	886	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	887	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	888	"center"
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	889	ypos := (restHeight - ((numChilds - 1) * space)) // 2.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	890	ypos < 0 ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	891	space := restHeight // (numChilds + 1).
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	892	ypos := (restHeight - ((numChilds - 1) * space)) // 2.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	893	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	894	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	895	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	896	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	897	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	898	].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	899	].
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	900	].
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	901
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	902	resizeToMaxH := false.
f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	903	(hL endsWith:'Max') ifTrue:[
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	904	resizeToMaxH := true.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	905	maxWidth := subViews inject:0 into:[:maxSoFar :child \| maxSoFar max:child widthIncludingBorder].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	906	hL := (hL copyWithoutLast:3) asSymbol.
127 462396b08e30 . claus parents: 125 diff changeset	907	].
462396b08e30 . claus parents: 125 diff changeset	908
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	909	"
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	910	now set positions
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	911	"
133 e58c7c979f33 . claus parents: 131 diff changeset	912	subViews keysAndValuesDo:[:index :child \|
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	913	\|xpos advance bwChild wChild newWChild x2\|
125 3ffa271732f7 . claus parents: 77 diff changeset	914
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	915	wChild := child widthIncludingBorder.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	916	bwChild := child borderWidth.
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	917
3118 996b7fc6dee7 1. Avoid endless recursion with #elementsChangesSize. Stefan Vogel <sv@exept.de> parents: 2387 diff changeset	918	elementsChangeSize ifTrue:[
996b7fc6dee7 1. Avoid endless recursion with #elementsChangesSize. Stefan Vogel <sv@exept.de> parents: 2387 diff changeset	919	"to avoid a recursion when we change the elements size"
996b7fc6dee7 1. Avoid endless recursion with #elementsChangesSize. Stefan Vogel <sv@exept.de> parents: 2387 diff changeset	920	child removeDependent:self.
996b7fc6dee7 1. Avoid endless recursion with #elementsChangesSize. Stefan Vogel <sv@exept.de> parents: 2387 diff changeset	921	].
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	922	resizeToMaxH ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	923	child width:(wChild := maxWidth - (bwChild * 2)).
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	924	].
127 462396b08e30 . claus parents: 125 diff changeset	925
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	926	hL == #left ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	927	xpos := 0 - borderWidth + margin.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	928	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	929	hL == #leftSpace ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	930	xpos := horizontalSpace + margin
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	931	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	932	hL == #right ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	933	xpos := width - wChild - margin
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	934	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	935	hL == #rightSpace ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	936	xpos := width - horizontalSpace - wChild - margin.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	937	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	938	hL == #fitSpace ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	939	xpos := horizontalSpace + margin.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	940	newWChild := width - m2 - (horizontalSpace + bwChild * 2)
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	941	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	942	hL == #fit ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	943	newWChild := width "- (bwChild * 2)".
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	944	borderWidth == 0 ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	945	newWChild := newWChild - (bwChild * 2)
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	946	].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	947	true "child level == 0" ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	948	xpos := margin - borderWidth.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	949	newWChild := newWChild - m2
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	950	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	951	xpos := 0 - borderWidth.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	952	].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	953	] ifFalse:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	954	"centered"
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	955	xpos := margin + ((width - m2 - wChild) // 2).
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	956	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	957	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	958	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	959	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	960	]
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	961	].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	962	newWChild notNil ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	963	child width:newWChild
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	964	].
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	965
793 12396da0e36e care for borderWidths Claus Gittinger <cg@exept.de> parents: 713 diff changeset	966	"/ (xpos < 0) ifTrue:[ xpos := 0 ].
12396da0e36e care for borderWidths Claus Gittinger <cg@exept.de> parents: 713 diff changeset	967
2033 fc16e79f649b size computation with bordered components Claus Gittinger <cg@exept.de> parents: 2031 diff changeset	968	x2 := xpos + child width - 1.
380 6eb402d01ae0 looks better if panels level is ~~ 0 AND subview has 0 level Claus Gittinger <cg@exept.de> parents: 341 diff changeset	969
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	970	rowHeight notNil ifTrue:[
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	971	child origin:(xpos@ypos).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	972	advance := rowHeight
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	973	] ifFalse:[
3529 bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	974	(vL == #fit
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	975	or:[vL == #fitSpace
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	976	or:[resizeToMaxV]]) ifTrue:[
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	977	child origin:(xpos @ (ypos rounded))
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	978	corner:(x2 @ (ypos + hEach - bwChild - 1) rounded).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	979	advance := hEach
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	980	] ifFalse:[
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	981	child origin:(xpos@ypos).
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	982	advance := child heightIncludingBorder
bcf8c2053ac4 added rowHeight attribute Claus Gittinger <cg@exept.de> parents: 3504 diff changeset	983	].
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	984	].
133 e58c7c979f33 . claus parents: 131 diff changeset	985
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	986	index == numChilds ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	987	\|y\|
133 e58c7c979f33 . claus parents: 131 diff changeset	988
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	989	(vL == #topFit or:[vL == #topSpaceFit]) ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	990	y := height - margin - 1.
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	991	vL == #topSpaceFit ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	992	y := y - space
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	993	].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	994	child corner:x2 @ y
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	995	].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	996	].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	997	index == 1 ifTrue:[
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	998	(vL == #bottomFit or:[vL == #bottomSpaceFit]) ifTrue:[
3118 996b7fc6dee7 1. Avoid endless recursion with #elementsChangesSize. Stefan Vogel <sv@exept.de> parents: 2387 diff changeset	999	ypos := margin + 0 + (child borderWidth * 2) - borderWidth.
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	1000	vL == #bottomSpaceFit ifTrue:[
3118 996b7fc6dee7 1. Avoid endless recursion with #elementsChangesSize. Stefan Vogel <sv@exept.de> parents: 2387 diff changeset	1001	ypos := ypos + space
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	1002	].
3118 996b7fc6dee7 1. Avoid endless recursion with #elementsChangesSize. Stefan Vogel <sv@exept.de> parents: 2387 diff changeset	1003	advance := restHeight.
996b7fc6dee7 1. Avoid endless recursion with #elementsChangesSize. Stefan Vogel <sv@exept.de> parents: 2387 diff changeset	1004	child origin:((child origin x) @ ypos)
996b7fc6dee7 1. Avoid endless recursion with #elementsChangesSize. Stefan Vogel <sv@exept.de> parents: 2387 diff changeset	1005	corner:((child corner x) @ (ypos+advance))
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	1006	].
fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	1007	].
1307 f2ce08878d5e added #bottomFit & #bottomSpaceFit layouts Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1008
1431 fd1e74d673ae really care for margins when doing childPositions Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	1009	ypos := ypos + advance + space.
3118 996b7fc6dee7 1. Avoid endless recursion with #elementsChangesSize. Stefan Vogel <sv@exept.de> parents: 2387 diff changeset	1010	elementsChangeSize ifTrue:[
996b7fc6dee7 1. Avoid endless recursion with #elementsChangesSize. Stefan Vogel <sv@exept.de> parents: 2387 diff changeset	1011	"reinstall dependency that we removed above"
996b7fc6dee7 1. Avoid endless recursion with #elementsChangesSize. Stefan Vogel <sv@exept.de> parents: 2387 diff changeset	1012	child addDependent:self.
996b7fc6dee7 1. Avoid endless recursion with #elementsChangesSize. Stefan Vogel <sv@exept.de> parents: 2387 diff changeset	1013	].
0 e6a541c1c0eb Initial revision claus parents: diff changeset	1014	]
155 d6f3836d2b51 . claus parents: 133 diff changeset	1015
3504 2395db2daa9e setChildPositions fix with bottomFit Claus Gittinger <cg@exept.de> parents: 3502 diff changeset	1016	"Modified: / 04-09-1995 / 18:43:29 / claus"
2395db2daa9e setChildPositions fix with bottomFit Claus Gittinger <cg@exept.de> parents: 3502 diff changeset	1017	"Modified: / 10-10-2007 / 13:47:56 / cg"
0 e6a541c1c0eb Initial revision claus parents: diff changeset	1018	! !
125 3ffa271732f7 . claus parents: 77 diff changeset	1019
3ffa271732f7 . claus parents: 77 diff changeset	1020	!VerticalPanelView methodsFor:'queries'!
3ffa271732f7 . claus parents: 77 diff changeset	1021
130 338e856bddc9 . claus parents: 127 diff changeset	1022	preferredExtent
125 3ffa271732f7 . claus parents: 77 diff changeset	1023	"return a good extent, one that makes subviews fit"
3ffa271732f7 . claus parents: 77 diff changeset	1024
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 797 diff changeset	1025	\|sumOfHeights maxWidth maxHeight m2 subViews\|
125 3ffa271732f7 . claus parents: 77 diff changeset	1026
3771 4233b9ff2cb6 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3679 diff changeset	1027	"/ If I have an explicit preferredExtent..
4233b9ff2cb6 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3679 diff changeset	1028	explicitExtent notNil ifTrue:[
4233b9ff2cb6 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3679 diff changeset	1029	^ explicitExtent
4233b9ff2cb6 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3679 diff changeset	1030	].
797 2f9cd56f48ee * empty log message * Claus Gittinger <cg@exept.de> parents: 793 diff changeset	1031
3771 4233b9ff2cb6 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3679 diff changeset	1032	"/ If I have a cached preferredExtent value..
713 0c38ad51016d care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1033	preferredExtent notNil ifTrue:[
2387 c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1034	^ preferredExtent
713 0c38ad51016d care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1035	].
0c38ad51016d care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1036
1417 e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	1037	subViews := self subViewsToConsider.
e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	1038	(subViews size == 0) ifTrue:[
2387 c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1039	^ super preferredExtent.
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1040	"/ ^ horizontalSpace @ verticalSpace].
1038 c6d8eb89d260 useful preferredExtent if no subviews. ca parents: 1000 diff changeset	1041	].
c6d8eb89d260 useful preferredExtent if no subviews. ca parents: 1000 diff changeset	1042
125 3ffa271732f7 . claus parents: 77 diff changeset	1043
3ffa271732f7 . claus parents: 77 diff changeset	1044	"compute net height needed"
3ffa271732f7 . claus parents: 77 diff changeset	1045
3ffa271732f7 . claus parents: 77 diff changeset	1046	sumOfHeights := 0.
3ffa271732f7 . claus parents: 77 diff changeset	1047	maxWidth := 0.
3ffa271732f7 . claus parents: 77 diff changeset	1048	maxHeight := 0.
3ffa271732f7 . claus parents: 77 diff changeset	1049
3ffa271732f7 . claus parents: 77 diff changeset	1050	subViews do:[:child \|
2387 c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1051	\|childsPreference\|
125 3ffa271732f7 . claus parents: 77 diff changeset	1052
3675 dc94ab5c7abb spacing computation fixed (boundary condition, spacing reduction) Claus Gittinger <cg@exept.de> parents: 3529 diff changeset	1053	child realized ifTrue:[
dc94ab5c7abb spacing computation fixed (boundary condition, spacing reduction) Claus Gittinger <cg@exept.de> parents: 3529 diff changeset	1054	childsPreference := child extent.
dc94ab5c7abb spacing computation fixed (boundary condition, spacing reduction) Claus Gittinger <cg@exept.de> parents: 3529 diff changeset	1055	] ifFalse:[
dc94ab5c7abb spacing computation fixed (boundary condition, spacing reduction) Claus Gittinger <cg@exept.de> parents: 3529 diff changeset	1056	childsPreference := child preferredExtent.
dc94ab5c7abb spacing computation fixed (boundary condition, spacing reduction) Claus Gittinger <cg@exept.de> parents: 3529 diff changeset	1057	].
2387 c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1058	sumOfHeights := sumOfHeights + childsPreference y.
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1059	maxHeight := maxHeight max:childsPreference y.
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1060	maxWidth := maxWidth max:childsPreference x.
125 3ffa271732f7 . claus parents: 77 diff changeset	1061
3ffa271732f7 . claus parents: 77 diff changeset	1062	"/ sumOfHeights := sumOfHeights + child heightIncludingBorder.
3ffa271732f7 . claus parents: 77 diff changeset	1063	"/ maxWidth := maxWidth max:(child widthIncludingBorder).
3ffa271732f7 . claus parents: 77 diff changeset	1064	"/ maxHeight := maxHeight max:(child heightIncludingBorder).
3ffa271732f7 . claus parents: 77 diff changeset	1065	].
321 00c17944cb00 preferredExtent computation used hSpace instead of vSpace Claus Gittinger <cg@exept.de> parents: 205 diff changeset	1066
125 3ffa271732f7 . claus parents: 77 diff changeset	1067	borderWidth ~~ 0 ifTrue:[
2387 c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1068	sumOfHeights := sumOfHeights + (verticalSpace * 2).
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1069	maxWidth := maxWidth + (horizontalSpace * 2).
125 3ffa271732f7 . claus parents: 77 diff changeset	1070	].
321 00c17944cb00 preferredExtent computation used hSpace instead of vSpace Claus Gittinger <cg@exept.de> parents: 205 diff changeset	1071
125 3ffa271732f7 . claus parents: 77 diff changeset	1072	(vLayout == #fit or:[vLayout == #fitSpace]) ifTrue:[
2387 c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1073	sumOfHeights := maxHeight * subViews size.
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1074	borderWidth ~~ 0 ifTrue:[
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1075	sumOfHeights := sumOfHeights + (verticalSpace * 2).
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1076	].
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1077	vLayout == #fitSpace ifTrue:[
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1078	"/ care for spacing ...
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1079	sumOfHeights := sumOfHeights + (verticalSpace * (subViews size + 1)).
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1080	].
125 3ffa271732f7 . claus parents: 77 diff changeset	1081	] ifFalse:[
2387 c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1082	sumOfHeights := sumOfHeights + ((subViews size - 1) * verticalSpace).
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1083	((vLayout == #topSpace) or:[vLayout == #bottomSpace]) ifTrue:[
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1084	sumOfHeights := sumOfHeights + verticalSpace
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1085	] ifFalse:[
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1086	((vLayout == #center) or:[vLayout == #spread]) ifTrue:[
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1087	sumOfHeights := sumOfHeights + (verticalSpace * 2)
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1088	]
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1089	].
125 3ffa271732f7 . claus parents: 77 diff changeset	1090	].
3ffa271732f7 . claus parents: 77 diff changeset	1091
3ffa271732f7 . claus parents: 77 diff changeset	1092	((hLayout == #leftSpace) or:[hLayout == #rightSpace]) ifTrue:[
2387 c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1093	maxWidth := maxWidth + horizontalSpace
125 3ffa271732f7 . claus parents: 77 diff changeset	1094	] ifFalse:[
2387 c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1095	((hLayout == #fitSpace) or:[hLayout == #center]) ifTrue:[
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1096	maxWidth := maxWidth + (horizontalSpace * 2)
c589e85a4f43 prefExtent computation was wrong for fitSpace Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	1097	]
125 3ffa271732f7 . claus parents: 77 diff changeset	1098	].
380 6eb402d01ae0 looks better if panels level is ~~ 0 AND subview has 0 level Claus Gittinger <cg@exept.de> parents: 341 diff changeset	1099	m2 := margin * 2.
6eb402d01ae0 looks better if panels level is ~~ 0 AND subview has 0 level Claus Gittinger <cg@exept.de> parents: 341 diff changeset	1100	^ (maxWidth + m2) @ (sumOfHeights + m2)
321 00c17944cb00 preferredExtent computation used hSpace instead of vSpace Claus Gittinger <cg@exept.de> parents: 205 diff changeset	1101
1417 e9dffd6767a6 added ignoreInvisibleComponents support Claus Gittinger <cg@exept.de> parents: 1307 diff changeset	1102	"Modified: / 17.1.1998 / 00:18:16 / cg"
125 3ffa271732f7 . claus parents: 77 diff changeset	1103	! !
3ffa271732f7 . claus parents: 77 diff changeset	1104
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 797 diff changeset	1105	!VerticalPanelView class methodsFor:'documentation'!
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 202 diff changeset	1106
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 202 diff changeset	1107	version
3771 4233b9ff2cb6 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3679 diff changeset	1108	^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.47 2008-10-26 20:15:50 stefan Exp $'
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 202 diff changeset	1109	! !

author	Stefan Vogel <sv@exept.de>
	Sun, 26 Oct 2008 21:15:50 +0100
changeset 3771	4233b9ff2cb6
parent 3679	3e521d5a375e
child 3867	4ef489b98751
permissions	-rw-r--r--