hg/stx-libwidg: VariablePanel.st@40873b6d96bb (annotated)

295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	2	COPYRIGHT (c) 1991 by Claus Gittinger
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	3	All Rights Reserved
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	5	This software is furnished under a license and may be used
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	6	only in accordance with the terms of that license and with the
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	9	other person. No title to or ownership of the software is
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	10	hereby transferred.
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	12
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	13	SimpleView subclass:#VariablePanel
395 db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	14	instanceVariableNames:'barHeight barWidth separatingLine shadowForm lightForm showHandle
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	15	handlePosition handleColor handleStyle handleLevel noColor
1655 2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	16	trackLine redrawLocked orientation handleLabels knobHeight
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	17	realRelativeSizes'
395 db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	18	classVariableNames:'DefaultShowHandle DefaultHandleStyle DefaultHandlePosition
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	19	DefaultTrackingLine DefaultSeparatingLine DefaultHandleColor
1529 509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	20	DefaultHandleLevel DefaultVCursor DefaultHCursor
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	21	DefaultHandleImage'
395 db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	22	poolDictionaries:''
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	23	category:'Views-Layout'
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	24	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	26	!VariablePanel class methodsFor:'documentation'!
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	27
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28	copyright
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29	"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	30	COPYRIGHT (c) 1991 by Claus Gittinger
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31	All Rights Reserved
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	32
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33	This software is furnished under a license and may be used
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	34	only in accordance with the terms of that license and with the
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	35	inclusion of the above copyright notice. This software may not
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36	be provided or otherwise made available to, or used by, any
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	37	other person. No title to or ownership of the software is
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	38	hereby transferred.
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	39	"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	40	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	41
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	42	documentation
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43	"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	44	a View to separate its subviews vertically by a movable bar;
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	45	the size-ratios of the subviews can be changed by moving this bar.
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	47	In order to correctly setup this kind of view, the subviews must
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	48	be created with a relative origin & relative corner.
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	49	The panel does not verify the relative subview bounds;
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	50	therefore, it is your responsibility to set those relative sizes to fit
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	51	according the orientation (see bad example below).
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	52
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	53	The bar-handle is either an exposed knob (style == #motif)
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	54	or the form defined in Scroller (style ~~ #motif)
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	55	or nothing.
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	56
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	57	Typically creation is done as:
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	58
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	59	p := VariablePanel in:superView.
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	60	p orientation:#vertical.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	61
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	62	v1 := <someViewClass> origin:0.0 @ 0.0
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	63	corner:1.0 @ 0.5
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	64	in:p.
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	65	v2 := <someViewClass> origin:0.0 @ 0.5
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	66	corner:1.0 @ 0.8
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	67	in:p.
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	68	v3 := <someViewClass> origin:0.0 @ 0.8
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	69	corner:1.0 @ 1.0
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	70	in:p.
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	71
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	72	The two subclasses VariableHorizontalPanel and VariableVerticalPanel
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	73	preset the orientation. They are a kept for backward compatibility
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	74	(in previous versions, there used to be no common VariablePanel (super-) class).
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	75
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	76	Notice: if it is required to insert a fixed-size view in the panel,
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	77	use an extra view & insets, and place the subview into that extra view.
1381 d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	78	See examples.
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	79
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 496 diff changeset	80	[instance Variables:]
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	81
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	82	barHeight <Integer> the height of the bar (for verticalPanels)
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	83	barWidth <Integer> the width of the bar (for horizontalPanels)
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	84
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	85	separatingLine <Boolean> show a separating line (as in motif style)
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	86
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	87	shadowForm <Image/Form> form (shadow part) drawn as handle - if nonNil
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	88
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	89	lightForm <Image/Form> form (light part) drawn as handle - if nonNil
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	90
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	91	showHandle <Boolean> if false, no handle is drawn
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	92
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	93	handlePosition <Symbol> where is the handle - one of #left, #center, #right
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	94
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	95	handleColor <Color> inside color of handle - defaults to viewBackground
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	96
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	97	handleStyle <Symbol> type of handle; one of #next, #motif or nil
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	98
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	99	handleLevel <Integer> 3D level of handle (only valid if no form is given)
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	100
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	101	trackLine <Boolean> if true, an inverted line is drawn for tracking;
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	102	otherwise, the whole bar is inverted.
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	103
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	104	redrawLocked internal - locks redraws while tracking
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	105
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	106	orientation <Symbol> one of #horizontal / #vertical
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	107
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	108
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 496 diff changeset	109	[styleSheet values:]
1381 d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	110	variablePanel.showHandle true/false - should a handle be shown (default:true)
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	111
1381 d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	112	variablePanel.handleStyle #next / #motif / #iris / #full / nil (special handles)
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	113
1381 d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	114	variablePanel.handlePosition #left / #center / #right (default:#right)
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	115
1381 d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	116	variablePanel.handleLevel 3D level of heandle (default:2)
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	117
1381 d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	118	variablePanel.trackingLine when moved, track an inverted line (as in motif)
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	119	as opposed to tracking the whole bar (default:false)
1381 d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	120	(obsoleted by trackingStyle)
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	121
1381 d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	122	variablePanel.trackingStyle #solidRectangle / #solidLine / #dashedLine
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	123	detailed control over how to draw tracking
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	124	(obsoletes trackingLine above)
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	125
1381 d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	126	variablePanel.separatingLine draw a separating line in the bar as in motif (default:false)
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	127
1381 d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	128	variablePanel.handleColor color of the handle. (default:Black)
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	129
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	130	variablePanel.handleEnteredColor
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	131	color of the handle when the pointer is in the bar (default:nil)
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 496 diff changeset	132
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 496 diff changeset	133	[see also:]
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 496 diff changeset	134	PanelView
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 496 diff changeset	135
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 496 diff changeset	136	[author:]
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 496 diff changeset	137	Claus Gittinger
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	138	"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	139	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	140
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	141	examples
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	142	"
874 f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	143	example (notice that the subviews MUST have relative bounds):
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	144	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	145	\|top p v1 v2 v3\|
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	146
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	147	top := StandardSystemView new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	148	top extent:300@300.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	149
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	150	p := VariablePanel
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	151	origin:0.0 @ 0.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	152	corner:1.0 @ 1.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	153	in:top.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	154	p orientation:#vertical.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	155
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	156	v1 := View origin:0.0@0.0 corner:1.0@(1/2) in:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	157	v2 := View origin:0.0@(1/2) corner:1.0@(2/3) in:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	158	v3 := View origin:0.0@(2/3) corner:1.0@1.0 in:p.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	159
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	160	v1 viewBackground:(Color red).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	161	v2 viewBackground:(Color green).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	162	v3 viewBackground:(Color yellow).
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	163
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	164	top open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	165	[exEnd]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	166
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	167
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	168
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	169	change the handles level:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	170	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	171	\|top p v1 v2 v3\|
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	172
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	173	top := StandardSystemView new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	174	top extent:300@300.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	175
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	176	p := VariablePanel
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	177	origin:0.0 @ 0.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	178	corner:1.0 @ 1.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	179	in:top.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	180	p orientation:#vertical.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	181	p handleLevel:-1.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	182
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	183	v1 := View origin:0.0@0.0 corner:1.0@(1/3) in:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	184	v2 := View origin:0.0@(1/3) corner:1.0@(2/3) in:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	185	v3 := View origin:0.0@(2/3) corner:1.0@1.0 in:p.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	186
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	187	v1 viewBackground:(Color red).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	188	v2 viewBackground:(Color green).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	189	v3 viewBackground:(Color yellow).
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	190
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	191	top open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	192	[exEnd]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	193
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	194
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	195
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	196	change the handles style to nil makes it invisible:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	197	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	198	\|top p v1 v2 v3\|
397 7038c3c38ced * empty log message * Claus Gittinger <cg@exept.de> parents: 396 diff changeset	199
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	200	top := StandardSystemView new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	201	top extent:300@300.
397 7038c3c38ced * empty log message * Claus Gittinger <cg@exept.de> parents: 396 diff changeset	202
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	203	p := VariablePanel
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	204	origin:0.0 @ 0.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	205	corner:1.0 @ 1.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	206	in:top.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	207	p orientation:#vertical.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	208	p handleStyle:nil.
397 7038c3c38ced * empty log message * Claus Gittinger <cg@exept.de> parents: 396 diff changeset	209
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	210	v1 := View origin:0.0@0.0 corner:1.0@(1/3) in:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	211	v2 := View origin:0.0@(1/3) corner:1.0@(2/3) in:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	212	v3 := View origin:0.0@(2/3) corner:1.0@1.0 in:p.
397 7038c3c38ced * empty log message * Claus Gittinger <cg@exept.de> parents: 396 diff changeset	213
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	214	v1 viewBackground:(Color red).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	215	v2 viewBackground:(Color green).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	216	v3 viewBackground:(Color yellow).
397 7038c3c38ced * empty log message * Claus Gittinger <cg@exept.de> parents: 396 diff changeset	217
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	218	top open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	219	[exEnd]
397 7038c3c38ced * empty log message * Claus Gittinger <cg@exept.de> parents: 396 diff changeset	220
7038c3c38ced * empty log message * Claus Gittinger <cg@exept.de> parents: 396 diff changeset	221
7038c3c38ced * empty log message * Claus Gittinger <cg@exept.de> parents: 396 diff changeset	222
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	223	define your own handle (-bitmap):
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	224	[exBegin]
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	225	\|top p v1 v2 v3\|
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	226
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	227	top := StandardSystemView new.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	228	top extent:300@300.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	229
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	230	p := VariablePanel
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	231	origin:0.0 @ 0.0
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	232	corner:1.0 @ 1.0
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	233	in:top.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	234	p orientation:#vertical.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	235	p handleImage:(Image fromFile:'bitmaps/ScrollLt.8.xbm').
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	236
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	237	v1 := View origin:0.0@0.0 corner:1.0@(1/3) in:p.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	238	v2 := View origin:0.0@(1/3) corner:1.0@(2/3) in:p.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	239	v3 := View origin:0.0@(2/3) corner:1.0@1.0 in:p.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	240
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	241	v1 viewBackground:(Color red).
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	242	v2 viewBackground:(Color green).
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	243	v3 viewBackground:(Color yellow).
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	244
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	245	top open
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	246	[exEnd]
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	247
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	248
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	249
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	250	another handle-bitmap:
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	251	[exBegin]
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	252	\|top p v1 v2 v3\|
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	253
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	254	top := StandardSystemView new.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	255	top extent:300@300.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	256
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	257	p := VariablePanel
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	258	origin:0.0 @ 0.0
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	259	corner:1.0 @ 1.0
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	260	in:top.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	261	p orientation:#vertical.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	262	p handleImage:(Form width:9
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	263	height:11
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	264	fromArray:#(
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	265	2r00000000 2r00000000
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	266	2r00001000 2r00000000
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	267	2r00011100 2r00000000
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	268	2r00111110 2r00000000
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	269	2r01111111 2r00000000
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	270	2r00000000 2r00000000
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	271	2r01111111 2r00000000
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	272	2r00111110 2r00000000
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	273	2r00011100 2r00000000
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	274	2r00001000 2r00000000
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	275	2r00000000 2r00000000
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	276	)
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	277	).
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	278
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	279	v1 := View origin:0.0@0.0 corner:1.0@(1/3) in:p.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	280	v2 := View origin:0.0@(1/3) corner:1.0@(2/3) in:p.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	281	v3 := View origin:0.0@(2/3) corner:1.0@1.0 in:p.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	282
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	283	v1 viewBackground:(Color red).
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	284	v2 viewBackground:(Color green).
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	285	v3 viewBackground:(Color yellow).
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	286
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	287	top open
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	288	[exEnd]
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	289
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	290	placing scrolled and unscrolled views into a variablePanel:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	291	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	292	\|top p v1 v2 v3\|
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	293
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	294	top := StandardSystemView new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	295	top extent:300@300.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	296
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	297	p := VariablePanel
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	298	origin:0.0 @ 0.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	299	corner:1.0 @ 1.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	300	in:top.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	301	p orientation:#vertical.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	302
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	303	v1 := ScrollableView for:SelectionInListView in:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	304	v1 origin:0.0 @ 0.0 corner:1.0 @ 0.5.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	305	v1 list:(FileDirectory directoryNamed:'/etc') contents.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	306	v1 action:[:selNr \|
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	307	\|fullName stream text\|
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	308	fullName := '/etc/' , v1 selectionValue.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	309	stream := fullName asFilename readStream.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	310	stream notNil ifTrue:[
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	311	text := stream contents.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	312	v2 contents:text.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	313	v3 contents:text
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	314	]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	315	].
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	316
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	317	v2 := TextView origin:0.0 @ 0.5 corner:1.0 @ 0.8 in:p.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	318
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	319	v3 := ScrollableView for:TextView in:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	320	v3 origin:0.0 @ 0.8 corner:1.0 @ 1.0.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	321	top open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	322	[exEnd]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	323
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	324
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	325	dynamically adding/removing views:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	326	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	327	\|top p v1 v2 b\|
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	328
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	329	top := StandardSystemView new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	330	top extent:300@300.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	331
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	332	b := Toggle label:'show' in:top.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	333	b showLamp:false.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	334	b origin:0.0 @ 0.0 corner:(1.0 @ 40).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	335	b action:[:state \|
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	336	state ifTrue:[
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	337	b label:'hide'.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	338	v1 origin:0.0 @ 0.0 corner:1.0 @ 0.5.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	339	v2 := ScrollableView for:EditTextView.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	340	v2 origin:0.0 @ 0.5 corner:1.0 @ 1.0.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	341	v2 contents:'another text'.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	342	p addSubView:v2.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	343	v2 realize.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	344	] ifFalse:[
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	345	b label:'show'.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	346	v2 destroy.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	347	v1 origin:0.0 @ 0.0 corner:1.0 @ 1.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	348	]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	349	].
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	350
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	351	p := VariablePanel
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	352	origin:0.0 @ 0.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	353	corner:1.0 @ 1.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	354	in:top.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	355	p orientation:#vertical.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	356	p topInset:50.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	357
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	358	v1 := ScrollableView for:EditTextView in:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	359	v1 origin:0.0 @ 0.0 corner:1.0 @ 1.0.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	360	v1 contents:'some text'.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	361
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	362	top open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	363	[exEnd]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	364
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	365
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	366	dynamically flipping orientation:
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	367	Notice: you have to change the relative bounds of the subviews first.
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	368	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	369	\|top p v1 v2 b\|
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	370
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	371	top := StandardSystemView new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	372	top extent:300@300.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	373
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	374	b := Toggle label:'flip' in:top.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	375	b showLamp:false.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	376	b origin:0.0 @ 0.0 corner:(1.0 @ 40).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	377	b action:[:state \|
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	378	state ifTrue:[
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	379	v1 origin:0.0 @ 0.0 corner:0.5 @ 1.0.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	380	v2 origin:0.5 @ 0.0 corner:1.0 @ 1.0.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	381	p orientation:#horizontal.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	382	] ifFalse:[
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	383	v1 origin:0.0 @ 0.0 corner:1.0 @ 0.5.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	384	v2 origin:0.0 @ 0.5 corner:1.0 @ 1.0.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	385	p orientation:#vertical.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	386	].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	387	].
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	388
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	389	p := VariablePanel
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	390	origin:0.0 @ 0.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	391	corner:1.0 @ 1.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	392	in:top.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	393	p orientation:#vertical.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	394	p topInset:50.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	395
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	396	v1 := ScrollableView for:EditTextView in:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	397	v1 origin:0.0 @ 0.0 corner:1.0 @ 0.5.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	398	v1 contents:'some text'.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	399
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	400	v2 := ScrollableView for:EditTextView in:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	401	v2 origin:0.0 @ 0.5 corner:1.0 @ 1.0.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	402	v2 contents:'another text'.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	403
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	404	top open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	405	[exEnd]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	406
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	407
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	408	combining fix-size with variable size:
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	409	(need 3 extra frame-views to place the extra labels into)
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	410	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	411	\|top p v1 l1 v2 l2 v3 l3 f1 f2 f3\|
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	412
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	413	top := StandardSystemView new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	414	top extent:300@300.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	415
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	416	p := VariablePanel
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	417	origin:0.0 @ 0.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	418	corner:1.0 @ 1.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	419	in:top.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	420
874 f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	421	p orientation:#vertical.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	422
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	423	f1 := View origin:0.0@0.0 corner:1.0@0.3 in:p.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	424	f2 := View origin:0.0@0.3 corner:1.0@0.6 in:p.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	425	f3 := View origin:0.0@0.6 corner:1.0@1.0 in:p.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	426
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	427	v1 := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:f1.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	428	v2 := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:f2.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	429	v3 := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:f3.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	430
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	431	l1 := Label label:'sub1' in:f1.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	432	l2 := Label label:'sub2' in:f2.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	433	l3 := Label label:'sub3' in:f3.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	434
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	435	l1 origin:0.0 @ 0.0 corner:1.0 @ 0.0 ;
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	436	bottomInset:(l1 preferredExtent y negated).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	437	l2 origin:0.0 @ 0.0 corner:1.0 @ 0.0 ;
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	438	bottomInset:(l2 preferredExtent y negated).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	439	l3 origin:0.0 @ 0.0 corner:1.0 @ 0.0 ;
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	440	bottomInset:(l3 preferredExtent y negated).
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	441
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	442	v1 topInset:(l1 preferredExtent y); level:-1.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	443	v2 topInset:(l2 preferredExtent y); level:-1.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	444	v3 topInset:(l3 preferredExtent y); level:-1.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	445
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	446	v1 viewBackground:(Color red).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	447	v2 viewBackground:(Color green).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	448	v3 viewBackground:(Color yellow).
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	449
874 f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	450	top open
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	451	[exEnd]
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	452
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	453	VerticalPansels allow a label to be associated with the
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	454	handles; this looks much like the above, but is slightly
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	455	more compact. Notice, no label can be placed above the first
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	456	view - it has no handle.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	457	[exBegin]
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	458	\|top p v1 v2 v3\|
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	459
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	460	top := StandardSystemView new.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	461	top extent:300@300.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	462
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	463	p := VariablePanel
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	464	origin:0.0 @ 0.0
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	465	corner:1.0 @ 1.0
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	466	in:top.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	467
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	468	p orientation:#vertical.
874 f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	469	p handleLabels:#('ignored' 'sub2' 'sub3').
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	470
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	471	v1 := View origin:0.0@0.0 corner:1.0@0.3 in:p.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	472	v2 := View origin:0.0@0.3 corner:1.0@0.6 in:p.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	473	v3 := View origin:0.0@0.6 corner:1.0@1.0 in:p.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	474
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	475	v1 viewBackground:(Color red).
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	476	v2 viewBackground:(Color green).
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	477	v3 viewBackground:(Color yellow).
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	478
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	479	top open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	480	[exEnd]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	481
874 f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	482	handle labels can be more than strings ....
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	483	(however, they should have about the same height, since
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	484	the largest defines heights of all bars;
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	485	retry the example below with a larger bitmap image ...)
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	486	[exBegin]
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	487	\|top e p v1 v2 v3\|
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	488
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	489	top := StandardSystemView new.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	490	top extent:300@300.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	491
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	492	p := VariablePanel
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	493	origin:0.0 @ 0.0
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	494	corner:1.0 @ 1.0
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	495	in:top.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	496
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	497	p orientation:#vertical.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	498	e := Array with:#bold
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	499	with:#color->Color red.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	500
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	501	p handleLabels:(Array with:nil
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	502	with:('bold and red' asText emphasizeAllWith:e)
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	503	with:(Image fromFile:'ScrollRt.xbm')).
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	504
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	505	v1 := View origin:0.0@0.0 corner:1.0@0.3 in:p.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	506	v2 := View origin:0.0@0.3 corner:1.0@0.6 in:p.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	507	v3 := View origin:0.0@0.6 corner:1.0@1.0 in:p.
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	508
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	509	v1 viewBackground:(Color red).
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	510	v2 viewBackground:(Color green).
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	511	v3 viewBackground:(Color yellow).
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	512
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	513	top open
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	514	[exEnd]
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	515
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	516
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	517
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	518	BAD EXAMPLE (wrong relative sizes - repaired on handle move):
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	519	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	520	\|top p v1 v2 v3\|
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	521
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	522	top := StandardSystemView new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	523	top extent:300@300.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	524
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	525	p := VariablePanel
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	526	origin:0.0 @ 0.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	527	corner:1.0 @ 1.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	528	in:top.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	529	p orientation:#vertical.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	530
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	531	v1 := View origin:0.0 @ 0.0 corner:1.0 @ (1/4) in:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	532	v2 := View origin:0.0 @ (1/2) corner:1.0 @ (3/4) in:p.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	533	v3 := View origin:0.0 @ (3/4) corner:1.0 @ 1.0 in:p.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	534
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	535	v1 viewBackground:(Color red).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	536	v2 viewBackground:(Color green).
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	537	v3 viewBackground:(Color yellow).
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	538
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	539	top open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	540	[exEnd]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	541	"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	542	! !
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	543
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	544	!VariablePanel class methodsFor:'defaults'!
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	545
1158 225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	546	cursorForOrientation:orientation
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	547	"return an appropriate cursor"
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	548
1698 cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	549	^ self cursorForOrientation:orientation onDevice:Display.
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	550
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	551	"Modified: / 30.9.1998 / 18:21:10 / cg"
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	552	!
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	553
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	554	cursorForOrientation:orientation onDevice:device
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	555	"return an appropriate cursor"
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	556
1158 225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	557	\|cursor\|
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	558
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	559	orientation == #vertical ifTrue:[
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	560	DefaultVCursor notNil ifTrue:[
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	561	cursor := DefaultVCursor
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	562	] ifFalse:[
1698 cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	563	device platformName = 'WIN32' ifFalse:[
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	564	cursor := Cursor
2073 40873b6d96bb * empty log message * Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	565	sourceForm:(Smalltalk imageFromFileNamed:'VVPanel.xbm' forClass:self)
40873b6d96bb * empty log message * Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	566	maskForm:(Smalltalk imageFromFileNamed:'VVPanel_m.xbm' forClass:self)
1698 cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	567	hotX:8
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	568	hotY:8.
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	569	].
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	570
1158 225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	571	"
1698 cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	572	if bitmaps are not available or under Win95,
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	573	use a standard cursor
1158 225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	574	"
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	575	cursor isNil ifTrue:[
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	576	"which one looks better ?"
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	577	cursor := Cursor upDownArrow
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	578	"cursor := Cursor upLimitArrow"
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	579	].
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	580	DefaultVCursor := cursor
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	581	]
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	582	] ifFalse:[
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	583	DefaultHCursor notNil ifTrue:[
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	584	cursor := DefaultHCursor
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	585	] ifFalse:[
1698 cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	586	device platformName = 'WIN32' ifFalse:[
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	587	cursor := Cursor
2073 40873b6d96bb * empty log message * Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	588	sourceForm:(Smalltalk imageFromFileNamed:'VHPanel.xbm' forClass:self)
40873b6d96bb * empty log message * Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	589	maskForm:(Smalltalk imageFromFileNamed:'VHPanel_m.xbm' forClass:self)
1698 cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	590	hotX:8
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	591	hotY:8.
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	592	].
1158 225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	593	"
1698 cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	594	if bitmaps are not available or under Win95,
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	595	use a standard cursor
1158 225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	596	"
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	597	cursor isNil ifTrue:[
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	598	"which one looks better ?"
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	599	cursor := Cursor leftRightArrow
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	600	"cursor := Cursor leftLimitArrow"
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	601	].
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	602	DefaultHCursor := cursor
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	603	]
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	604	].
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	605
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	606	^ cursor
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	607
1698 cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	608	"
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	609	DefaultVCursor := DefaultHCursor := nil.
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	610	"
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	611
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	612	"Created: / 30.9.1998 / 18:20:41 / cg"
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	613	"Modified: / 30.9.1998 / 18:23:07 / cg"
1158 225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	614	!
225c0d52068d cursor default is now a class method. Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	615
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	616	lightFormOn:aDisplay
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	617	"use same handle as Scroller"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	618
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	619	^ Scroller handleLightFormOn:aDisplay
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	620	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	621
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	622	shadowFormOn:aDisplay
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	623	"use same handle as Scroller"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	624
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	625	^ Scroller handleShadowFormOn:aDisplay
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	626	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	627
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	628	updateStyleCache
441 e170bca66a78 added style resource directive Claus Gittinger <cg@exept.de> parents: 397 diff changeset	629	"extract values from the styleSheet and cache them in class variables"
e170bca66a78 added style resource directive Claus Gittinger <cg@exept.de> parents: 397 diff changeset	630
1388 ac52d9b7c8dc checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	631	<resource: #style (#'variablePanel.showHandle'
1529 509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	632	#'variablePanel.handleStyle'
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	633	#'variablePanel.handleImage'
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	634	#'variablePanel.handlePosition'
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	635	#'variablePanel.handleLevel'
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	636	#'variablePanel.trackingLine'
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	637	#'variablePanel.trackingStyle'
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	638	#'variablePanel.separatingLine'
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	639	#'variablePanel.handleColor')>
441 e170bca66a78 added style resource directive Claus Gittinger <cg@exept.de> parents: 397 diff changeset	640
1129 17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	641	\|lineModeBoolean\|
17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	642
1869 b435e03cf803 * empty log message * Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	643	DefaultShowHandle := StyleSheet at:#'variablePanel.showHandle' default:true.
b435e03cf803 * empty log message * Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	644	DefaultHandleStyle := StyleSheet at:#'variablePanel.handleStyle'.
b435e03cf803 * empty log message * Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	645	DefaultHandlePosition := StyleSheet at:#'variablePanel.handlePosition' "default:#right".
1381 d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	646	DefaultHandlePosition isNil ifTrue:[
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	647	DefaultHandlePosition := ScrollableView defaultScrollBarPosition.
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	648	].
1869 b435e03cf803 * empty log message * Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	649	DefaultHandleLevel := StyleSheet at:#'variablePanel.handleLevel' default:2.
b435e03cf803 * empty log message * Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	650	DefaultTrackingLine := StyleSheet at:#'variablePanel.trackingStyle'.
1129 17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	651	DefaultTrackingLine isNil ifTrue:[
1869 b435e03cf803 * empty log message * Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	652	lineModeBoolean := StyleSheet at:#'variablePanel.trackingLine' default:false.
1129 17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	653	lineModeBoolean ifTrue:[
17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	654	DefaultTrackingLine := #solidLine
17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	655	] ifFalse:[
17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	656	DefaultTrackingLine := #solidRectangle
17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	657	]
17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	658	].
17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	659
1869 b435e03cf803 * empty log message * Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	660	DefaultSeparatingLine := StyleSheet at:#'variablePanel.separatingLine' default:false.
b435e03cf803 * empty log message * Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	661	DefaultHandleColor := StyleSheet colorAt:#'variablePanel.handleColor' default:Black.
441 e170bca66a78 added style resource directive Claus Gittinger <cg@exept.de> parents: 397 diff changeset	662
1869 b435e03cf803 * empty log message * Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	663	DefaultHandleImage := StyleSheet at:#'variablePanel.handleImage'
1529 509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	664
1129 17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	665	"
17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	666	VariablePanel updateStyleCache
17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	667	"
17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	668
1529 509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	669	"Modified: / 19.5.1998 / 16:08:54 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	670	! !
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	671
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	672	!VariablePanel methodsFor:'accessing'!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	673
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	674	addSubView:aView
395 db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	675	"a view is added; adjust other subviews sizes"
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	676
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	677	super addSubView:aView.
1043 f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	678
f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	679	"/ (aView relativeOrigin isNil
f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	680	"/ or:[aView relativeExtent isNil and:[aView relativeCorner isNil]]) ifTrue:[
f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	681	"/ aView geometryLayout:nil.
f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	682	"/ aView origin:0.0@0.0.
f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	683	"/ aView extent:1.0@0.5.
f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	684	"/ self setupSubviews
f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	685	"/ ].
f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	686
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	687	realized ifTrue:[
1043 f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	688	self resizeSubviews.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	689	]
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	690
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	691	"Created: 17.1.1996 / 22:41:00 / cg"
395 db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	692	"Modified: 24.2.1996 / 19:05:05 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	693	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	694
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	695	orientation
485 50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	696	"return my orientation; either #horizontal or #vertical"
50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	697
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	698	^ orientation
485 50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	699
50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	700	"Modified: 6.3.1996 / 18:08:45 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	701	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	702
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	703	orientation:aSymbol
485 50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	704	"change my orientation; aSymbol must be one of #horizontal or #vertical.
50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	705	Changing implies a resize of my subViews."
50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	706
50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	707	aSymbol ~~ orientation ifTrue:[
50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	708	orientation := aSymbol.
50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	709	self initCursor.
50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	710	self anyNonRelativeSubviews ifTrue:[
50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	711	self setupSubviews
50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	712	].
50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	713	shown ifTrue:[
50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	714	self cursor:cursor.
50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	715	self sizeChanged:nil.
722 3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	716	self invalidate.
485 50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	717	]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	718	]
485 50cbbe748ac9 commentary Claus Gittinger <cg@exept.de> parents: 441 diff changeset	719
722 3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	720	"Modified: 29.5.1996 / 16:22:35 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	721	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	722
395 db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	723	removeSubView:aView
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	724	"a view is removed; adjust other subviews sizes"
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	725
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	726	super removeSubView:aView.
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	727	shown ifTrue:[
1043 f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	728	(superView isNil or:[superView shown]) ifTrue:[
f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	729	self setupSubviews.
f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	730	self resizeSubviews.
f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	731	]
395 db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	732	]
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	733	! !
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	734
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	735	!VariablePanel methodsFor:'accessing-look'!
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	736
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	737	barHeight
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	738	"return the height of the separating bar"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	739
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	740	^ barHeight
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	741	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	742
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	743	barHeight:nPixel
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	744	"set the height of the separating bar"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	745
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	746	barHeight := nPixel.
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	747
1207 2668cd0caee7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1159 diff changeset	748	"make certain bar is visible and catchable"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	749	(barHeight < 4) ifTrue:[
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	750	barHeight := 4
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	751	].
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	752
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	753	"make it even, so spacing is equally spreadable among subviews"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	754	barHeight odd ifTrue:[
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	755	barHeight := barHeight + 1
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	756	]
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	757
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	758	"Modified: 7.11.1996 / 20:07:11 / cg"
1207 2668cd0caee7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1159 diff changeset	759	"Modified: 28.4.1997 / 14:30:33 / dq"
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	760	!
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	761
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	762	handleImage:aBitmapOrImage
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	763	"define the handles image"
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	764
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	765	shadowForm := aBitmapOrImage.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	766	lightForm := nil.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	767	self computeBarHeight.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	768
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	769	"Created: 7.11.1996 / 20:21:10 / cg"
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	770	"Modified: 7.11.1996 / 20:27:22 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	771	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	772
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	773	handleLabels:aCollectionOfLabels
1981 15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	774	"define special handle labels - typically a collection of
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	775	bitmap images. Notice, that the first handle is not
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	776	drawn, that is, the first element if the argument is useless."
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	777
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	778	orientation == #horizontal ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	779	self error:'not allowed for horizontal panels'
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	780	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	781
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	782	handleLabels := aCollectionOfLabels.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	783	self computeBarHeight.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	784	self resizeSubviews.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	785
1981 15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	786	"
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	787	\|top panel v1 v2\|
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	788
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	789	top := StandardSystemView new.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	790	panel := VariableVerticalPanel origin:0.0@0.0 corner:1.0@1.0 in:top.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	791	panel add:(EditTextView origin:0.0@0.0 corner:1.0@0.5).
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	792	panel add:(EditTextView origin:0.0@0.5 corner:1.0@1.0).
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	793	panel handleStyle:nil.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	794	panel handleLabels:#('foo' 'bar').
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	795	top open
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	796	"
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	797	!
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	798
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	799	handleLevel:aNumber
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	800	"define the 3D level of the handle (only with some styles).
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	801	Normally, this is defined via styleSheet files, but this entry allows
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	802	individual views to be manipulated."
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	803
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	804	handleLevel := aNumber
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	805	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	806
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	807	handlePosition
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	808	"return the position of the handle"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	809
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	810	^ handlePosition
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	811	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	812
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	813	handlePosition:aSymbol
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	814	"define the position of the handle; the argument aSymbol
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	815	may be one of #left, #right or #center"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	816
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	817	handlePosition := aSymbol
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	818	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	819
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	820	handleShadowImage:shadowImage lightImage:lightImage
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	821	"define the handles image; both shadow and light parts"
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	822
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	823	shadowForm := shadowImage.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	824	lightForm := lightImage.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	825	self computeBarHeight.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	826
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	827	"Created: 7.11.1996 / 20:21:51 / cg"
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	828	"Modified: 7.11.1996 / 20:27:26 / cg"
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	829	!
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	830
395 db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	831	handleStyle:styleSymbol
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	832	"define the style of the handle;
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	833	styleSymbol may be #motif to draw a little knob or
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	834	anything else to draw scrollBars handleForm.
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	835	Normally, this is defined via styleSheet files, but this entry allows
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	836	individual views to be manipulated."
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	837
395 db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	838	(styleSymbol ~~ handleStyle) ifTrue:[
722 3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	839	handleStyle := styleSymbol.
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	840	handleStyle == #next ifTrue:[
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	841	shadowForm := self class shadowFormOn:device.
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	842	lightForm := self class lightFormOn:device.
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	843	] ifFalse:[
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	844	shadowForm := lightForm := nil
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	845	].
395 db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	846
722 3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	847	shadowForm notNil ifTrue:[
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	848	(self is3D and:[handleStyle ~~ #motif]) ifTrue:[
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	849	self barHeight:(shadowForm height + 2).
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	850	barWidth := shadowForm width
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	851	]
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	852	].
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	853	shown ifTrue:[
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	854	self resizeSubviews.
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	855	self invalidate
3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	856	]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	857	]
395 db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	858
db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	859	"Created: 24.2.1996 / 19:04:07 / cg"
722 3f297a438fec use #invalidate instead of #redraw Claus Gittinger <cg@exept.de> parents: 593 diff changeset	860	"Modified: 29.5.1996 / 16:22:24 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	861	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	862
1948 e92d1005d6a3 direct access to barHeight Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	863	setBarHeight:nPixel
e92d1005d6a3 direct access to barHeight Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	864	"set the height of the separating bar"
e92d1005d6a3 direct access to barHeight Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	865
e92d1005d6a3 direct access to barHeight Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	866	barHeight := nPixel.
e92d1005d6a3 direct access to barHeight Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	867
e92d1005d6a3 direct access to barHeight Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	868	!
e92d1005d6a3 direct access to barHeight Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	869
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	870	style:styleSymbol
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	871	"define the style of the handle;
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	872	styleSymbol may be #motif to draw a little knob or
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	873	anything else to draw scrollBars handleForm.
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	874	Normally, this is defined via styleSheet files, but this entry allows
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	875	individual views to be manipulated."
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	876
395 db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	877	self handleStyle:styleSymbol
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	878
395 db172e0f3d56 renamed #style: to #handleStyle: Claus Gittinger <cg@exept.de> parents: 300 diff changeset	879	"Modified: 24.2.1996 / 19:04:19 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	880	! !
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	881
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	882	!VariablePanel methodsFor:'drawing'!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	883
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	884	drawHandle:hIndex atX:hx y:hy
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	885	"draw a single handle at hx/hy"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	886
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	887	\|h w x y m xm ym lbl maxKnob
1096 e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	888	mar "{ Class: SmallInteger }"
e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	889	barWidthInt "{ Class: SmallInteger }"
e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	890	barHeightInt "{ Class: SmallInteger }" \|
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	891
1981 15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	892	((handleStyle isNil or:[handleStyle == #none])
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	893	and:[handleLabels isNil]) ifTrue:[^ self].
396 973d4a9fa32c setting handleStyle to nil disables handleDrawing Claus Gittinger <cg@exept.de> parents: 395 diff changeset	894
1096 e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	895	mar := margin.
e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	896	barHeightInt := barHeight.
e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	897	barWidthInt := barWidth.
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	898
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	899	shadowForm notNil ifTrue:[
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	900	h := shadowForm height.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	901	w := shadowForm width .
1096 e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	902	maxKnob := h min:barHeightInt.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	903	] ifFalse:[
1096 e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	904	maxKnob := knobHeight min: barHeightInt.
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	905	maxKnob := maxKnob max:4.
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	906	handleStyle == #full ifTrue:[
d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	907	w := h := maxKnob
d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	908	] ifFalse:[
d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	909	w := h := maxKnob - 4.
d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	910	]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	911	].
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	912
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	913	self paint:viewBackground.
1131 98922cb07e5b allow handleStyle of #none Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	914	self lineStyle:#solid.
98922cb07e5b allow handleStyle of #none Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	915
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	916	orientation == #vertical ifTrue:[
1096 e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	917	self fillRectangleX:mar y:hy
e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	918	width:(width - mar - mar)
e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	919	height:barHeightInt.
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	920
1981 15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	921	(handleStyle isNil
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	922	or:[handleStyle == #none]) ifFalse:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	923	(handleStyle ~~ #normal
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	924	and:[handleStyle ~~ #mswindows]) ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	925	m := (maxKnob - h) // 2.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	926
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	927	shadowForm isNil ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	928
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	929	y := hy + (barHeightInt // 2). "/ center of the bar
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	930
1981 15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	931	separatingLine ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	932	self paint:shadowColor.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	933	self displayLineFromX:mar y:y toX:(width - mar) y:y.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	934	y := y + 1.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	935	self paint:lightColor.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	936	self displayLineFromX:mar y:y toX:(width - mar) y:y.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	937	self paint:viewBackground.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	938	].
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	939
1981 15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	940	self fillRectangleX:(hx - barWidthInt)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	941	y:hy
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	942	width:(barWidthInt + barWidthInt)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	943	height:h.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	944
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	945	handleStyle == #line ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	946	self paint:handleColor.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	947	self displayLineFromX:hx - barWidthInt y:y toX:hx + barWidthInt y:y
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	948	] ifFalse:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	949	y := hy.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	950	handleStyle == #st80 ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	951	y := y - 1
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	952	].
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	953	ym := y + m.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	954
1981 15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	955	handleStyle == #full ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	956	handleLevel ~~ 0 ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	957	self
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	958	drawEdgesForX:0 "/ -(handleLevel abs)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	959	y:ym "/-1
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	960	width:width "/+(handleLevel+handleLevel)abs
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	961	height:h-2
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	962	level:handleLevel
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	963	shadow:shadowColor
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	964	light:lightColor
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	965	halfShadow:nil
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	966	halfLight:nil
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	967	style:nil
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	968	]
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	969	] ifFalse:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	970	handleLevel ~~ 0 ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	971	self drawEdgesForX:(hx - barWidthInt)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	972	y:ym
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	973	width:(barWidthInt + barWidthInt)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	974	height:h
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	975	level:handleLevel.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	976	].
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	977
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	978	handleStyle == #iris ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	979	self paint:handleColor.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	980	self fillDeviceRectangleX:(hx - barWidthInt + 2)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	981	y:(ym + 2)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	982	width:(barWidthInt + barWidthInt - 4)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	983	height:h - 4
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	984	]
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	985	]
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	986	].
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	987	] ifFalse:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	988	y := hy.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	989	(shadowForm notNil or:[lightForm notNil]) ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	990	self drawHandleFormAtX:hx y:(y + m)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	991	]
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	992	].
1096 e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	993
1981 15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	994	handleStyle == #st80 ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	995	y := hy - 1.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	996	self paint:lightColor.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	997	self displayLineFromX:mar y:y toX:(width - mar - mar - 1) y:y.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	998	self displayLineFromX:0 y:hy toX:0 y:(hy + knobHeight - 1).
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	999	y := hy + knobHeight - 2.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1000	self paint:shadowColor.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1001	self displayLineFromX:mar y:y toX:(width - mar) y:y.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1002	"uncomment the -1 if you dont like the notch at the right end"
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1003	" VVV"
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1004	self displayLineFromX:width-1 y:hy" "-1" " toX:width-1 y:(hy + knobHeight - 1 - 1).
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1005	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1006	] ifFalse:[
1981 15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1007	y := hy + barHeightInt - 1.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1008	self paint:handleColor.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1009	separatingLine ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1010	self displayLineFromX:0 y:hy+1 toX:width y:hy+1.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1011	self displayLineFromX:0 y:y toX:width y:y.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1012	].
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1013	self fillRectangleX:hx y:hy width:barWidthInt height:barHeightInt
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1014	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1015	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1016	lbl := self handleLabelAt:hIndex.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1017	lbl notNil ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1018	hIndex ~~ 1 ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1019	self paint:Color black.
874 f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	1020	lbl isImageOrForm ifTrue:[
1096 e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	1021	lbl displayOn:self x:mar y:hy
874 f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	1022	] ifFalse:[
1096 e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	1023	lbl displayOn:self x:mar y:hy + font ascent + 1
874 f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	1024	]
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1025	]
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1026	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1027
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1028	] ifFalse:[
1096 e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	1029	self fillRectangleX:hx y:mar
e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	1030	width:barHeightInt
e17800280f82 checkin from browser Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	1031	height:(height - mar - mar).
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	1032
1981 15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1033	(handleStyle isNil
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1034	or:[handleStyle == #none]) ifFalse:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1035	(handleStyle ~~ #normal
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1036	and:[handleStyle ~~ #mswindows]) ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1037	m := (barHeightInt - w) // 2.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1038	m := (maxKnob - w) // 2.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1039	shadowForm isNil ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1040	x := hx + (barHeightInt // 2).
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1041	separatingLine ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1042	self paint:shadowColor.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1043	self displayLineFromX:x y:mar toX:x y:(height - mar).
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1044	x := x + 1.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1045	self paint:lightColor.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1046	self displayLineFromX:x y:mar toX:x y:(height - mar).
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1047	self paint:viewBackground.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1048	].
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1049	self fillRectangleX:hx y:(hy - barWidthInt)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1050	width:w
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1051	height:(barWidthInt + barWidthInt).
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1052
1981 15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1053	handleStyle == #line ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1054	self paint:handleColor.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1055	self displayLineFromX:x y:hy - barWidthInt toX:x y:hy + barWidthInt.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1056	] ifFalse:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1057	x := hx.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1058	handleStyle == #st80 ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1059	x := x - 1.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1060	].
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1061	xm := x + m.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1062	handleStyle == #full ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1063	handleLevel ~~ 0 ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1064	self
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1065	drawEdgesForX:xm "/-1
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1066	y:0 "/ -handleLevel
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1067	width:w-2
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1068	height:height "/ +handleLevel+handleLevel
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1069	level:handleLevel
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1070	shadow:shadowColor
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1071	light:lightColor
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1072	halfShadow:nil
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1073	halfLight:nil
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1074	style:nil
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1075	]
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1076	] ifFalse:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1077	handleLevel ~~ 0 ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1078	self drawEdgesForX:xm
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1079	y:(hy - barWidthInt)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1080	width:w
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1081	height:(barWidthInt + barWidthInt)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1082	level:handleLevel.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1083	].
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1084	handleStyle == #iris ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1085	self paint:handleColor.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1086	self fillDeviceRectangleX:(xm + 2)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1087	y:(hy - barWidthInt + 2)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1088	width:w - 4
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1089	height:(barWidthInt + barWidthInt - 4)
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1090	].
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1091	].
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1092	]
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1093	] ifFalse:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1094	x := hx.
1981 15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1095	(shadowForm notNil or:[lightForm notNil]) ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1096	self drawHandleFormAtX:(x + m) y:hy
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1097	]
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1098	].
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1099	handleStyle == #st80 ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1100	x := hx - 1.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1101	self paint:lightColor.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1102	self displayLineFromX:x y:mar toX:x y:(height - mar).
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1103	self displayLineFromX:hx y:0 toX:(hx + barHeightInt - 1) y:0.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1104	x := hx + barHeightInt - 2.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1105	self paint:shadowColor.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1106	self displayLineFromX:x y:mar toX:x y:(height - mar).
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1107	"uncomment the -1 if you dont like the notch at the bottom end"
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1108	" VVV"
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1109	self displayLineFromX:hx" "-1" " y:height-1 toX:(hx + barHeightInt - 1) y:height-1.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1110	].
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1111	] ifFalse:[
1981 15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1112	x := hx + barHeightInt - 1.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1113	self paint:handleColor.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1114	separatingLine ifTrue:[
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1115	self displayLineFromX:hx+1 y:0 toX:hx+1 y:height.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1116	self displayLineFromX:x y:0 toX:x y:height.
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1117	].
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1118	self fillRectangleX:hx y:hy width:barHeightInt height:barWidthInt
15a646f9e4fb error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	1119	]
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1120	]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1121	].
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1122
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1123	"Modified: / 29.7.1998 / 22:48:33 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1124	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1125
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1126	drawHandleFormAtX:hx y:hy
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1127	"draw a handles bitmap at hx/hy"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1128
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	1129	shadowForm notNil ifTrue:[
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	1130	self paint:shadowColor.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	1131	self displayForm:shadowForm x:hx y:hy.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	1132	].
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	1133	lightForm notNil ifTrue:[
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	1134	self paint:lightColor.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	1135	self displayForm:lightForm x:hx y:hy.
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	1136	].
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1137	self paint:viewBackground
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	1138
9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	1139	"Modified: 7.11.1996 / 20:25:33 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1140	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1141
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1142	invertHandleBarAtX:hx y:hy
1894 abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1143	\|doLine oldStyle\|
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1144
1894 abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1145	doLine := (trackLine == #solidLine
abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1146	or:[trackLine == #dashedLine
abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1147	or:[trackLine == #dottedLine]]).
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1148
1131 98922cb07e5b allow handleStyle of #none Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1149	trackLine == #dashedLine ifTrue:[
1894 abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1150	oldStyle := lineStyle.
1131 98922cb07e5b allow handleStyle of #none Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1151	self lineStyle:#dashed.
1894 abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1152	] ifFalse:[
abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1153	trackLine == #dottedLine ifTrue:[
abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1154	oldStyle := lineStyle.
abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1155	self lineStyle:#dotted.
abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1156	]
1131 98922cb07e5b allow handleStyle of #none Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1157	].
98922cb07e5b allow handleStyle of #none Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1158
1220 9bc6add9aa54 * empty log message * Claus Gittinger <cg@exept.de> parents: 1207 diff changeset	1159	self clippedByChildren:false.
1131 98922cb07e5b allow handleStyle of #none Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1160
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1161	self xoring:[
1129 17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1162	\|yL xL halfHeight\|
17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1163
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1164	halfHeight := (barHeight // 2) - 1.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1165
1129 17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1166	orientation == #vertical ifTrue:[
1894 abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1167	yL := hy + halfHeight.
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1168	doLine ifTrue:[
1129 17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1169	self displayLineFromX:0 y:yL toX:width y:yL.
17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1170	] ifFalse:[
1130 3c9a9961d225 checkin from browser Claus Gittinger <cg@exept.de> parents: 1129 diff changeset	1171	self fillRectangleX:0 y:hy width:width height:barHeight
1129 17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1172	]
17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1173	] ifFalse:[
1894 abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1174	xL := hx + halfHeight.
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1175	doLine ifTrue:[
1129 17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1176	self displayLineFromX:xL y:0 toX:xL y:height.
17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1177	] ifFalse:[
1130 3c9a9961d225 checkin from browser Claus Gittinger <cg@exept.de> parents: 1129 diff changeset	1178	self fillRectangleX:hx y:0 width:barHeight height:height
1129 17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1179	]
1130 3c9a9961d225 checkin from browser Claus Gittinger <cg@exept.de> parents: 1129 diff changeset	1180	].
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1181	].
1220 9bc6add9aa54 * empty log message * Claus Gittinger <cg@exept.de> parents: 1207 diff changeset	1182	self clippedByChildren:true.
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1183
1894 abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1184	oldStyle notNil ifTrue:[
abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1185	self lineStyle:oldStyle.
1131 98922cb07e5b allow handleStyle of #none Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1186	].
1129 17a77892f180 added support for dashed-LineTrack Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1187
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1188	"Modified: / 28.4.1997 / 14:56:26 / dq"
1894 abf63db59265 checkin from browser Claus Gittinger <cg@exept.de> parents: 1869 diff changeset	1189	"Modified: / 3.5.1999 / 18:49:04 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1190	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1191
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1192	lockRedraw
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1193	redrawLocked := true
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1194	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1195
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1196	redraw
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1197	"redraw all of the handles"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1198
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1199	redrawLocked ~~ true ifTrue:[
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1200	self redrawHandlesFrom:1 to:(self subViews size)
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1201	]
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1202
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1203	"Modified: 28.1.1997 / 17:54:15 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1204	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1205
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1206	redrawHandlesFrom:start to:stop
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1207	"redraw some handles"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1208
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1209	(self subViews size > 0) ifTrue:[
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1210	showHandle ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1211	self handleOriginsWithIndexFrom:start to:stop do:[:hPoint :hIndex \|
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1212	self drawHandle:hIndex atX:(hPoint x) y:(hPoint y)
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1213	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1214	]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1215	]
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1216
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1217	"Modified: 28.1.1997 / 17:54:33 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1218	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1219
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1220	unlockRedraw
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1221	redrawLocked := false
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1222	! !
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1223
1159 856ac1c6046c changeSequenceOrderFor:to: ca parents: 1158 diff changeset	1224	!VariablePanel methodsFor:'enumerating subviews'!
856ac1c6046c changeSequenceOrderFor:to: ca parents: 1158 diff changeset	1225
856ac1c6046c changeSequenceOrderFor:to: ca parents: 1158 diff changeset	1226	changeSequenceOrderFor:aSubView to:anIndex
1416 b915d4f7709c comment Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	1227	"change a subview's position in the subviews collection.
1159 856ac1c6046c changeSequenceOrderFor:to: ca parents: 1158 diff changeset	1228	"
856ac1c6046c changeSequenceOrderFor:to: ca parents: 1158 diff changeset	1229	\|success\|
856ac1c6046c changeSequenceOrderFor:to: ca parents: 1158 diff changeset	1230
856ac1c6046c changeSequenceOrderFor:to: ca parents: 1158 diff changeset	1231	success := super changeSequenceOrderFor:aSubView to:anIndex.
856ac1c6046c changeSequenceOrderFor:to: ca parents: 1158 diff changeset	1232	success ifTrue:[
856ac1c6046c changeSequenceOrderFor:to: ca parents: 1158 diff changeset	1233	self setupSubviews.
856ac1c6046c changeSequenceOrderFor:to: ca parents: 1158 diff changeset	1234	self resizeSubviews.
856ac1c6046c changeSequenceOrderFor:to: ca parents: 1158 diff changeset	1235	].
856ac1c6046c changeSequenceOrderFor:to: ca parents: 1158 diff changeset	1236	^ success
856ac1c6046c changeSequenceOrderFor:to: ca parents: 1158 diff changeset	1237	! !
856ac1c6046c changeSequenceOrderFor:to: ca parents: 1158 diff changeset	1238
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1239	!VariablePanel methodsFor:'event handling'!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1240
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1241	sizeChanged:how
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1242	"my size has changed; resize my subviews"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1243
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1244	shown ifTrue:[
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1245	(how == #smaller) ifTrue:[
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1246	self resizeSubviews
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1247	] ifFalse:[
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1248	"/
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1249	"/ do it in reverse order, to avoid some redraws
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1250	"/
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1251	self resizeSubviewsFrom:(self subViews size) to:1
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1252	]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1253	].
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1254	self changed:#sizeOfView with:how.
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1255
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1256	"Modified: 28.1.1997 / 17:56:30 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1257	! !
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1258
1821 b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	1259	!VariablePanel methodsFor:'focus handling'!
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	1260
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	1261	wantsFocusWithButtonPress
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	1262	"no, do not catch the keyboard focus on button click"
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	1263
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	1264	^ false
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	1265
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	1266
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	1267	! !
b57cc9dc2c08 changed request-focus-with-Button press Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	1268
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1269	!VariablePanel methodsFor:'initializing'!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1270
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1271	computeBarHeight
958 b75025112346 commentary Claus Gittinger <cg@exept.de> parents: 924 diff changeset	1272	"compute the height if the separating bar from either the
b75025112346 commentary Claus Gittinger <cg@exept.de> parents: 924 diff changeset	1273	form or an explicit height given in the styleSheet"
b75025112346 commentary Claus Gittinger <cg@exept.de> parents: 924 diff changeset	1274
1550 f0297a144983 clear view when resizing Claus Gittinger <cg@exept.de> parents: 1529 diff changeset	1275	<resource: #style (#'variablePanel.barHeight'
f0297a144983 clear view when resizing Claus Gittinger <cg@exept.de> parents: 1529 diff changeset	1276	#'variablePanel.barHeightMM')>
924 81f3ca4512bd allow barHeight to be set in the styleSheet Claus Gittinger <cg@exept.de> parents: 900 diff changeset	1277
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1278	\|bH h lvl\|
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1279
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	1280	shadowForm notNil ifTrue:[
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1281	bH := shadowForm height + 2.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1282	] ifFalse:[
1869 b435e03cf803 * empty log message * Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	1283	bH := styleSheet at:#'variablePanel.barHeight'.
924 81f3ca4512bd allow barHeight to be set in the styleSheet Claus Gittinger <cg@exept.de> parents: 900 diff changeset	1284	bH isNil ifTrue:[
1869 b435e03cf803 * empty log message * Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	1285	h := styleSheet at:#'variablePanel.barHeightMM' default:2.
924 81f3ca4512bd allow barHeight to be set in the styleSheet Claus Gittinger <cg@exept.de> parents: 900 diff changeset	1286	bH := (h * device verticalPixelPerMillimeter) rounded.
81f3ca4512bd allow barHeight to be set in the styleSheet Claus Gittinger <cg@exept.de> parents: 900 diff changeset	1287	].
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1288	].
1869 b435e03cf803 * empty log message * Claus Gittinger <cg@exept.de> parents: 1821 diff changeset	1289	lvl := styleSheet at:#'variablePanel.barLevel' default:0.
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1290	lvl ~~ 0 ifTrue:[
d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1291	bH := bH + (lvl abs * 2).
d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1292	].
d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1293
876 9766a5eda233 examples Claus Gittinger <cg@exept.de> parents: 874 diff changeset	1294	self barHeight:bH.
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1295	knobHeight := bH.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1296
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1297	handleLabels notNil ifTrue:[
1987 599825bed176 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1981 diff changeset	1298	font := font onDevice:device.
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1299	bH := handleLabels inject:bH into:[:maxSoFar :thisLabel \|
874 f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	1300	thisLabel isNil ifTrue:[
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	1301	maxSoFar
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	1302	] ifFalse:[
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	1303	maxSoFar max:(thisLabel heightOn:self)
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	1304	]
f79d88b92c1b example & fix for images Claus Gittinger <cg@exept.de> parents: 873 diff changeset	1305	].
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1306	bH := bH + font descent - 1
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1307	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1308
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1309	self barHeight:bH.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1310
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1311	"Modified: / 29.7.1998 / 14:47:21 / cg"
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1312	!
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1313
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1314	defaultControllerClass
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1315	^ VariablePanelController
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1316	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1317
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1318	fixSize
1151 94aff1c7b0aa Fix comments, eliminate common message sends. Stefan Vogel <sv@exept.de> parents: 1131 diff changeset	1319	super fixSize.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1320	extentChanged ifTrue:[
1151 94aff1c7b0aa Fix comments, eliminate common message sends. Stefan Vogel <sv@exept.de> parents: 1131 diff changeset	1321	self resizeSubviews
94aff1c7b0aa Fix comments, eliminate common message sends. Stefan Vogel <sv@exept.de> parents: 1131 diff changeset	1322	].
94aff1c7b0aa Fix comments, eliminate common message sends. Stefan Vogel <sv@exept.de> parents: 1131 diff changeset	1323
94aff1c7b0aa Fix comments, eliminate common message sends. Stefan Vogel <sv@exept.de> parents: 1131 diff changeset	1324	"Modified: 22.3.1997 / 01:19:55 / stefan"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1325	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1326
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1327	initCursor
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1328	"set the cursor - a double arrow"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1329
1698 cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	1330	cursor := self class
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	1331	cursorForOrientation:orientation
cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	1332	onDevice:device
900 0541b96dd173 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1333
1698 cab69c6081a8 use windows-like cursors if running on windows Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	1334	"Modified: / 30.9.1998 / 18:20:35 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1335	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1336
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1337	initStyle
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 958 diff changeset	1338	"setup viewStyle specifics"
824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 958 diff changeset	1339
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1340	\|mm\|
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1341
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1342	super initStyle.
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1343
1987 599825bed176 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1981 diff changeset	1344	handleColor := DefaultHandleColor onDevice:device.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1345
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1346	DefaultHandleStyle isNil ifTrue:[
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1347	handleStyle := styleSheet name
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1348	] ifFalse:[
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1349	handleStyle := DefaultHandleStyle
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1350	].
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1351
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1352	handleLevel := DefaultHandleLevel.
f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1353	showHandle := DefaultShowHandle.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1354	handlePosition := DefaultHandlePosition.
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1355	trackLine := DefaultTrackingLine.
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1356	separatingLine := DefaultSeparatingLine.
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1357
1529 509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1358	DefaultHandleImage notNil ifTrue:[
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1359	shadowForm := DefaultHandleImage onDevice:device.
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1360	barWidth := shadowForm width.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1361	] ifFalse:[
1529 509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1362	handleStyle == #next ifTrue:[
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1363	DefaultHandleImage notNil ifTrue:[
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1364	shadowForm := DefaultHandleImage onDevice:device.
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1365	] ifFalse:[
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1366	shadowForm := self class shadowFormOn:device.
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1367	lightForm := self class lightFormOn:device.
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1368	].
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1369	barWidth := shadowForm width.
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1370	] ifFalse:[
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1371	shadowForm := lightForm := nil.
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1372
1529 509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1373	mm := device verticalPixelPerMillimeter.
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1374	barWidth := (1.5 * mm) rounded. "motif style width"
509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1375	].
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1376	].
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1377	self computeBarHeight.
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1378
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1379	handleStyle == #mswindows ifTrue:[
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1380	barWidth := (ArrowButton new direction:#up) width + 1
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1381	].
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1382
1529 509edab0a08b allow handleImage to be specified in styleSheet Claus Gittinger <cg@exept.de> parents: 1416 diff changeset	1383	"Modified: / 19.5.1998 / 16:21:02 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1384	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1385
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1386	initialize
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1387	orientation isNil ifTrue:[orientation := #vertical].
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1388	super initialize.
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1389	self bitGravity:nil.
496 f22ac16a5093 commentary & code cleanup Claus Gittinger <cg@exept.de> parents: 485 diff changeset	1390
1628 d5065006e796 fixed / beautified #full handleStyle (used with win95 style) Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	1391	"Modified: / 29.7.1998 / 16:07:23 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1392	! !
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1393
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1394	!VariablePanel methodsFor:'private'!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1395
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1396	anyNonRelativeSubviews
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1397	"return true, if any of my subviews has no relative origin/extent"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1398
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1399	self subViews do:[:aComponent \|
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1400	aComponent relativeCorner isNil ifTrue:[^ true].
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1401	aComponent relativeOrigin isNil ifTrue:[^ true]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1402	].
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1403	^ false
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1404
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1405	"Modified: 28.1.1997 / 17:57:26 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1406	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1407
1655 2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1408	expandSubView:expandedView
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1409	"expand one of my subviews to full size"
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1410
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1411	\|pos subViews\|
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1412
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1413	realRelativeSizes notNil ifTrue:[
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1414	"/ already expanded ..
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1415	^ self
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1416	].
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1417
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1418	pos := 0.0.
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1419	subViews := self subViews.
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1420
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1421	orientation == #vertical ifTrue:[
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1422	realRelativeSizes := subViews collect:[:v \| v relativeCorner y - v relativeOrigin y].
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1423	] ifFalse:[
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1424	realRelativeSizes := subViews collect:[:v \| v relativeCorner x - v relativeOrigin x].
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1425	].
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1426
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1427	subViews do:[:aSubView \|
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1428	aSubView == expandedView ifTrue:[
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1429	aSubView origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1430	pos := 1.0
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1431	] ifFalse:[
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1432	orientation == #vertical ifTrue:[
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1433	aSubView origin:(0.0 @ pos) corner:(1.0 @ pos)
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1434	] ifFalse:[
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1435	aSubView origin:(pos @ 0.0) corner:(pos @ 1.0)
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1436	]
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1437	]
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1438	].
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1439	self resizeSubviews.
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1440
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1441	"Modified: 28.1.1997 / 17:56:20 / cg"
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1442	!
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1443
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1444	handleLabelAt:hIndex
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1445	handleLabels notNil ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1446	^ handleLabels at:hIndex ifAbsent:nil
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1447	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1448	^ nil
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1449	!
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1450
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1451	handleOriginsWithIndexDo:aBlock
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1452	"evaluate the argument block for every handle-origin"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1453
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1454	self handleOriginsWithIndexFrom:1 to:(self subViews size) do:aBlock
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1455
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1456	"Modified: 28.1.1997 / 17:53:44 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1457	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1458
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1459	handleOriginsWithIndexFrom:start to:stop do:aBlock
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1460	"evaluate the argument block for some handle-origins"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1461
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1462	\|x y hw hh hDelta vDelta subViews
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1463	first "{ Class: SmallInteger }"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1464	last "{ Class: SmallInteger }"\|
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1465
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1466	(subViews := self subViews) notNil ifTrue:[
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1467	shadowForm notNil ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1468	hw := shadowForm width.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1469	hh := shadowForm height.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1470	] ifFalse:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1471	hw := hh := barWidth
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1472	].
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1473
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1474	(handleStyle ~~ #normal and:[handleStyle ~~ #mswindows]) ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1475	hDelta := barWidth // 2.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1476	vDelta := barWidth // 2.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1477	] ifFalse:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1478	hDelta := vDelta := 0
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1479	].
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1480
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1481	(handlePosition == #left) ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1482	x := hDelta.
1381 d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	1483	y := vDelta.
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	1484
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	1485	orientation == #vertical ifTrue:[
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	1486	x := x + barWidth
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	1487	] ifFalse:[
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	1488	y := y + barWidth
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	1489	].
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	1490	margin ~~ 0 ifTrue:[
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	1491	x := x + 2
d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	1492	].
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1493	] ifFalse:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1494	(handlePosition == #right) ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1495	x := width - hw - margin - hDelta.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1496	y := height - hh - margin - vDelta.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1497	] ifFalse:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1498	x := width - barWidth // 2.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1499	y := height - barWidth // 2
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1500	]
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1501	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1502	first := start + 1.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1503	last := stop.
1381 d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	1504
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1505	first to:last do:[:index \|
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1506	\|view\|
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1507
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1508	view := subViews at:index.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1509	orientation == #vertical ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1510	y := view top "origin y" - barHeight + 1.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1511	] ifFalse:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1512	x := view left "origin x" - barHeight + 1.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1513	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1514	aBlock value:(x @ y) value:index
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1515	]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1516	]
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1517
1381 d69604d4bbb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1362 diff changeset	1518	"Modified: / 1.11.1997 / 11:53:40 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1519	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1520
2026 9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1521	resizeSubViewsTo:relativeSizeList
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1522	"change subviews sizes as defined in the argument list
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1523	(a collection of relative sizes)"
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1524
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1525	\|pos subViews\|
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1526
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1527	subViews := self subViews.
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1528
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1529	pos := 0.0.
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1530	subViews with:relativeSizeList do:[:aSubView :relSize \|
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1531	orientation == #vertical ifTrue:[
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1532	aSubView origin:(0.0 @ pos) corner:(1.0 @ (pos + relSize))
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1533	] ifFalse:[
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1534	aSubView origin:(pos @ 0.0) corner:((pos + relSize) @ 1.0)
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1535	].
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1536	pos := pos + relSize.
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1537	].
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1538	self resizeSubviews.
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1539
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1540	!
9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1541
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1542	resizeSubviews
1151 94aff1c7b0aa Fix comments, eliminate common message sends. Stefan Vogel <sv@exept.de> parents: 1131 diff changeset	1543	"readjust size of all subviews"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1544
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1545	self resizeSubviewsFrom:1 to:(self subViews size)
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1546
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1547	"Modified: 28.1.1997 / 17:54:42 / cg"
1151 94aff1c7b0aa Fix comments, eliminate common message sends. Stefan Vogel <sv@exept.de> parents: 1131 diff changeset	1548	"Modified: 22.3.1997 / 01:01:31 / stefan"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1549	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1550
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1551	resizeSubviewsFrom:start to:stop
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1552	"readjust size of some subviews"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1553
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1554	\|step nSubviews subViews\|
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1555
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1556	(subViews := self subViews) size > 0 ifTrue:[
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1557	(start <= stop) ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1558	step := 1
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1559	] ifFalse:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1560	step := -1
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1561	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1562	nSubviews := subViews size.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1563	start to:stop by:step do:[:index \|
2026 9876789dfba7 added interface to change the subViews sizes programmatically. Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	1564	\|bw view o1 o2 newOrg newCorner newExt\|
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1565
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1566	view := subViews at:index.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1567	bw := view borderWidth.
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1568
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1569	index == 1 ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1570	o1 := 0.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1571	] ifFalse:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1572	o1 := barHeight // 2 - bw
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1573	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1574	index == nSubviews ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1575	o2 := 0.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1576	] ifFalse:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1577	o2 := barHeight // 2 - bw
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1578	].
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1579
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1580	newOrg := view computeOrigin.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1581	newOrg notNil ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1582	(index ~~ 1) ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1583	orientation == #vertical ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1584	newOrg y:(newOrg y + o1)
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1585	] ifFalse:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1586	newOrg x:(newOrg x + o1)
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1587	]
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1588	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1589	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1590	newExt := view computeExtent.
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1591	newExt notNil ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1592	orientation == #vertical ifTrue:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1593	newExt y:(newExt y - o2 - o1)
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1594	] ifFalse:[
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1595	newExt x:(newExt x - o2 - o1)
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1596	]
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1597	].
541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1598	view pixelOrigin:newOrg extent:newExt.
1550 f0297a144983 clear view when resizing Claus Gittinger <cg@exept.de> parents: 1529 diff changeset	1599	].
1551 1b9a8a925fe7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1550 diff changeset	1600	shown ifTrue:[
1b9a8a925fe7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1550 diff changeset	1601	"/ must clear, since handles are copied automatically (by bitGravity)
1b9a8a925fe7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1550 diff changeset	1602	self clear.
1b9a8a925fe7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1550 diff changeset	1603	self invalidate.
1b9a8a925fe7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1550 diff changeset	1604	]
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1605	]
873 d1274f0256a6 removed transcript message Claus Gittinger <cg@exept.de> parents: 871 diff changeset	1606
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1607	"Modified: 28.1.1997 / 17:55:03 / cg"
1151 94aff1c7b0aa Fix comments, eliminate common message sends. Stefan Vogel <sv@exept.de> parents: 1131 diff changeset	1608	"Modified: 22.3.1997 / 01:02:21 / stefan"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1609	!
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1610
1655 2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1611	restoreSubViewRatios
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1612	"restore my subviews sizes to the state before the full-expand"
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1613
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1614	\|pos subViews \|
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1615
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1616	realRelativeSizes == nil ifTrue:[
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1617	"/ not expanded - ignore
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1618	^ self
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1619	].
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1620
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1621	pos := 0.0.
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1622	self subViews with:realRelativeSizes do:[:aSubView :aRelativeSize \|
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1623	orientation == #vertical ifTrue:[
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1624	aSubView origin:(0.0 @ pos) corner:(1.0 @ (pos+aRelativeSize))
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1625	] ifFalse:[
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1626	aSubView origin:(pos @ 0.0) corner:((pos+aRelativeSize) @ 1.0)
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1627	].
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1628	pos := pos + aRelativeSize
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1629	].
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1630	realRelativeSizes := nil.
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1631	self resizeSubviews.
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1632
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1633	"Modified: 28.1.1997 / 17:56:20 / cg"
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1634	!
2928bb99f774 added #expand & #restore Claus Gittinger <cg@exept.de> parents: 1628 diff changeset	1635
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1636	setupSubviews
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1637	"setup subviews sizes (in case of non-relative sizes)"
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1638
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1639	\|pos delta subViews nSubViews "{ Class: SmallInteger }"\|
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1640
300 0823ef38e629 adding/removing views to Panels ah parents: 299 diff changeset	1641	"/ setup all subviews to spread evenly ...
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1642
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1643	subViews := self subViews.
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1644	nSubViews := subViews size.
1043 f0eeb4035bb8 re-setup subViews when removing a subview; ca parents: 980 diff changeset	1645	nSubViews == 0 ifTrue:[^ self].
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1646
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1647	pos := 0.0.
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1648	delta := 1.0 / nSubViews.
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1649
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1650	1 to:nSubViews do:[:index \|
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1651	\|view\|
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1652
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1653	view := subViews at:index.
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1654	orientation == #vertical ifTrue:[
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1655	index == subViews size ifTrue:[
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1656	view origin:(0.0 @ pos) corner:(1.0 @ 1.0)
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1657	] ifFalse:[
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1658	view origin:(0.0 @ pos) corner:(1.0 @ (pos + delta))
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1659	].
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1660	] ifFalse:[
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1661	index == subViews size ifTrue:[
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1662	view origin:(pos @ 0.0) corner:(1.0 @ 1.0)
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1663	] ifFalse:[
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1664	view origin:(pos @ 0.0) corner:((pos + delta) @ 1.0)
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1665	].
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1666	].
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1667	pos := pos + delta
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1668	]
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1669
6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1670	"Modified: 28.1.1997 / 17:56:20 / cg"
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1671	! !
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1672
299 d2f955840ad5 oops - tableViews private interface was lost - reintroduced ah parents: 295 diff changeset	1673	!VariablePanel methodsFor:'private tableView protocol'!
d2f955840ad5 oops - tableViews private interface was lost - reintroduced ah parents: 295 diff changeset	1674
d2f955840ad5 oops - tableViews private interface was lost - reintroduced ah parents: 295 diff changeset	1675	setupSubviewOrigins
826 138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1676	"setup subviews origins
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1677	if we only have relative extents
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1678	(Variable Panels need relative origins and corners!!) (SV 16.1.95)"
299 d2f955840ad5 oops - tableViews private interface was lost - reintroduced ah parents: 295 diff changeset	1679
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1680	\|x y e eX eY subViews n "{ Class: SmallInteger }"\|
299 d2f955840ad5 oops - tableViews private interface was lost - reintroduced ah parents: 295 diff changeset	1681
d2f955840ad5 oops - tableViews private interface was lost - reintroduced ah parents: 295 diff changeset	1682	x := y := 0.0.
d2f955840ad5 oops - tableViews private interface was lost - reintroduced ah parents: 295 diff changeset	1683
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1684	subViews := self subViews.
299 d2f955840ad5 oops - tableViews private interface was lost - reintroduced ah parents: 295 diff changeset	1685	n := subViews size.
d2f955840ad5 oops - tableViews private interface was lost - reintroduced ah parents: 295 diff changeset	1686	1 to:n do:[:index \|
826 138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1687	\|view\|
299 d2f955840ad5 oops - tableViews private interface was lost - reintroduced ah parents: 295 diff changeset	1688
826 138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1689	view := subViews at:index.
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1690	e := view relativeExtent.
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1691	e notNil ifTrue:[
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1692	view relativeExtent:nil.
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1693	eX := e x.
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1694	eY := e y.
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1695	index == n ifTrue:[
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1696	view origin:(x @ y) corner:(1.0 @ 1.0)
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1697	] ifFalse:[
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1698	orientation == #vertical ifTrue:[
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1699	view origin:(x @ y) corner:(1.0 @ (y+eY))
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1700	] ifFalse:[
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1701	view origin:(x @ y) corner:((x+eX) @ 1.0)
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1702	].
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1703	].
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1704	orientation == #vertical ifTrue:[
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1705	y := y + eY.
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1706	] ifFalse:[
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1707	x := x + eX.
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1708	]
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1709	] ifFalse: [
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1710	view origin:(x @ y).
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1711	orientation == #vertical ifTrue:[
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1712	y := view relativeCorner y.
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1713	] ifFalse:[
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1714	x := view relativeCorner x.
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1715	]
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1716	].
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1717	]
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1718
138bc07c873b Add comment. Stefan Vogel <sv@exept.de> parents: 722 diff changeset	1719	"Modified: 21.8.1996 / 10:01:29 / stefan"
980 6079922a5519 eliminated references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 966 diff changeset	1720	"Modified: 28.1.1997 / 17:55:21 / cg"
299 d2f955840ad5 oops - tableViews private interface was lost - reintroduced ah parents: 295 diff changeset	1721	! !
d2f955840ad5 oops - tableViews private interface was lost - reintroduced ah parents: 295 diff changeset	1722
871 541b8f9e8237 add label to vertical panel ca parents: 826 diff changeset	1723	!VariablePanel class methodsFor:'documentation'!
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1724
aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1725	version
2073 40873b6d96bb * empty log message * Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1726	^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.53 1999-12-09 11:10:41 cg Exp $'
295 aa5887bff1b2 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1727	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 09 Dec 1999 12:10:41 +0100
changeset 2073	40873b6d96bb
parent 2064	e0623ca625d6
child 2084	5e2d277d82a8
permissions	-rw-r--r--