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

author	Claus Gittinger <cg@exept.de>
	Thu, 25 Apr 1996 19:26:41 +0200
changeset 585	8f395aba0173
parent 380	6eb402d01ae0
child 593	86dd024ed773
permissions	-rw-r--r--