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

author	Claus Gittinger <cg@exept.de>
	Mon, 18 Aug 1997 12:35:12 +0200
changeset 1307	f2ce08878d5e
parent 1291	03ed7c44f194
child 1417	e9dffd6767a6
permissions	-rw-r--r--