hg/stx-libwidg2: CheckBox.st@0050e38370ed (annotated)

44 97c1c943bef6 Initial revision claus parents: diff changeset	1	"
97c1c943bef6 Initial revision claus parents: diff changeset	2	COPYRIGHT (c) 1995 by Claus Gittinger
49 4dd0f5c3353e . claus parents: 44 diff changeset	3	All Rights Reserved
44 97c1c943bef6 Initial revision claus parents: diff changeset	4
97c1c943bef6 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
97c1c943bef6 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
97c1c943bef6 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
97c1c943bef6 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
97c1c943bef6 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
97c1c943bef6 Initial revision claus parents: diff changeset	10	hereby transferred.
97c1c943bef6 Initial revision claus parents: diff changeset	11	"
97c1c943bef6 Initial revision claus parents: diff changeset	12
97c1c943bef6 Initial revision claus parents: diff changeset	13
1769 68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	14	"{ Package: 'stx:libwidg2' }"
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	15
44 97c1c943bef6 Initial revision claus parents: diff changeset	16	HorizontalPanelView subclass:#CheckBox
112 bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	17	instanceVariableNames:'toggleView labelView labelForegroundColor
2060 ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	18	disabledLabelForegroundColor disabledLabelEtchedForegroundColor
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	19	foregroundChannel backgroundChannel resizeForLabel'
320 bf5e928d027a option to place the toggle at the right. Claus Gittinger <cg@exept.de> parents: 318 diff changeset	20	classVariableNames:'DefaultLabelForegroundColor DefaultDisabledLabelForegroundColor
2060 ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	21	DefaultDisabledLabelEtchedForegroundColor CheckToggleLeft'
112 bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	22	poolDictionaries:''
bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	23	category:'Views-Interactors'
44 97c1c943bef6 Initial revision claus parents: diff changeset	24	!
97c1c943bef6 Initial revision claus parents: diff changeset	25
273 01541272ce8d resource spec updated; cache device form Claus Gittinger <cg@exept.de> parents: 268 diff changeset	26	!CheckBox class methodsFor:'documentation'!
44 97c1c943bef6 Initial revision claus parents: diff changeset	27
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	28	copyright
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	29	"
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	30	COPYRIGHT (c) 1995 by Claus Gittinger
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	31	All Rights Reserved
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	32
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	33	This software is furnished under a license and may be used
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	34	only in accordance with the terms of that license and with the
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	35	inclusion of the above copyright notice. This software may not
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	36	be provided or otherwise made available to, or used by, any
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	37	other person. No title to or ownership of the software is
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	38	hereby transferred.
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	39	"
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	40
44 97c1c943bef6 Initial revision claus parents: diff changeset	41	!
97c1c943bef6 Initial revision claus parents: diff changeset	42
97c1c943bef6 Initial revision claus parents: diff changeset	43	documentation
97c1c943bef6 Initial revision claus parents: diff changeset	44	"
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	45	CheckBoxes consist of a checkToggle and a label;
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	46	if used without a model, its action block is evaluated
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	47	when toggled (see Toggle for more information).
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	48	Otherwise, a valueHolder on a boolean is the preferred model
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	49	(other models are possible - this may required different aspect
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	50	and/or changeMessage settings; make certain to set those before
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	51	a model is assigned, since the toggle fetches the value when
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	52	a new model is assigned.)
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	53
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	54	[author:]
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	55	Claus Gittinger
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	56
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	57	[see also:]
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	58	Button CheckToggle
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	59	DialogBox
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	60	ValueHolder
44 97c1c943bef6 Initial revision claus parents: diff changeset	61	"
97c1c943bef6 Initial revision claus parents: diff changeset	62	!
97c1c943bef6 Initial revision claus parents: diff changeset	63
97c1c943bef6 Initial revision claus parents: diff changeset	64	examples
97c1c943bef6 Initial revision claus parents: diff changeset	65	"
188 3649c62aad46 no label, if motif style Claus Gittinger <cg@exept.de> parents: 185 diff changeset	66	no-op checkBox without a label:
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	67	[exBegin]
188 3649c62aad46 no label, if motif style Claus Gittinger <cg@exept.de> parents: 185 diff changeset	68	\|b\|
3649c62aad46 no label, if motif style Claus Gittinger <cg@exept.de> parents: 185 diff changeset	69
3649c62aad46 no label, if motif style Claus Gittinger <cg@exept.de> parents: 185 diff changeset	70	b := CheckBox new.
3649c62aad46 no label, if motif style Claus Gittinger <cg@exept.de> parents: 185 diff changeset	71	b open
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	72	[exEnd]
188 3649c62aad46 no label, if motif style Claus Gittinger <cg@exept.de> parents: 185 diff changeset	73
3649c62aad46 no label, if motif style Claus Gittinger <cg@exept.de> parents: 185 diff changeset	74
44 97c1c943bef6 Initial revision claus parents: diff changeset	75	no-op checkBox:
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	76	[exBegin]
44 97c1c943bef6 Initial revision claus parents: diff changeset	77	\|b\|
97c1c943bef6 Initial revision claus parents: diff changeset	78
97c1c943bef6 Initial revision claus parents: diff changeset	79	b := CheckBox new.
97c1c943bef6 Initial revision claus parents: diff changeset	80	b label:'foo'.
97c1c943bef6 Initial revision claus parents: diff changeset	81	b open
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	82	[exEnd]
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	83
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	84
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	85	combined instance creation & label setup:
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	86	[exBegin]
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	87	\|b\|
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	88
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	89	b := CheckBox label:'foo'.
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	90	b open
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	91	[exEnd]
44 97c1c943bef6 Initial revision claus parents: diff changeset	92
97c1c943bef6 Initial revision claus parents: diff changeset	93
56 aa651da467e2 . claus parents: 55 diff changeset	94	no-op checkBox, disabled:
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	95	[exBegin]
56 aa651da467e2 . claus parents: 55 diff changeset	96	\|b\|
aa651da467e2 . claus parents: 55 diff changeset	97
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	98	b := CheckBox label:'foo'.
56 aa651da467e2 . claus parents: 55 diff changeset	99	b disable.
aa651da467e2 . claus parents: 55 diff changeset	100	b open
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	101	[exEnd]
56 aa651da467e2 . claus parents: 55 diff changeset	102
aa651da467e2 . claus parents: 55 diff changeset	103
aa651da467e2 . claus parents: 55 diff changeset	104	changing colors
aa651da467e2 . claus parents: 55 diff changeset	105	(a demo only: it is no good style to fight the styleSheet):
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	106	[exBegin]
44 97c1c943bef6 Initial revision claus parents: diff changeset	107	\|panel b\|
97c1c943bef6 Initial revision claus parents: diff changeset	108
97c1c943bef6 Initial revision claus parents: diff changeset	109	panel := VerticalPanelView new.
97c1c943bef6 Initial revision claus parents: diff changeset	110
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	111	b := CheckBox label:'foo' in:panel.
44 97c1c943bef6 Initial revision claus parents: diff changeset	112
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	113	b := CheckBox label:'bar' in:panel.
44 97c1c943bef6 Initial revision claus parents: diff changeset	114	b labelView foregroundColor:Color red.
97c1c943bef6 Initial revision claus parents: diff changeset	115
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	116	b := CheckBox label:'baz' in:panel.
44 97c1c943bef6 Initial revision claus parents: diff changeset	117	b toggleView activeForegroundColor:Color blue.
97c1c943bef6 Initial revision claus parents: diff changeset	118
97c1c943bef6 Initial revision claus parents: diff changeset	119	panel open
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	120	[exEnd]
44 97c1c943bef6 Initial revision claus parents: diff changeset	121
97c1c943bef6 Initial revision claus parents: diff changeset	122
97c1c943bef6 Initial revision claus parents: diff changeset	123	using action-blocks:
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	124	[exBegin]
49 4dd0f5c3353e . claus parents: 44 diff changeset	125	\|b\|
44 97c1c943bef6 Initial revision claus parents: diff changeset	126
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	127	b := CheckBox label:'check'.
184 13a2f3677c68 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 164 diff changeset	128	b action:[:value \| Transcript show:'set to: '; showCR:value].
44 97c1c943bef6 Initial revision claus parents: diff changeset	129	b open.
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	130	[exEnd]
44 97c1c943bef6 Initial revision claus parents: diff changeset	131
97c1c943bef6 Initial revision claus parents: diff changeset	132
49 4dd0f5c3353e . claus parents: 44 diff changeset	133	with a model (default ST-80 behavior, sending #value: to the model):
4dd0f5c3353e . claus parents: 44 diff changeset	134	(see changing value in the inspector)
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	135	[exBegin]
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	136	\|b model\|
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	137
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	138	model := ValueHolder newBoolean.
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	139
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	140	b := CheckBox label:'check'.
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	141	b model:model.
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	142	b open.
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	143	model inspect.
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	144	[exEnd]
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	145
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	146
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	147	combined instance creation & model setup:
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	148	[exBegin]
49 4dd0f5c3353e . claus parents: 44 diff changeset	149	\|b model\|
4dd0f5c3353e . claus parents: 44 diff changeset	150
4dd0f5c3353e . claus parents: 44 diff changeset	151	model := ValueHolder newBoolean.
4dd0f5c3353e . claus parents: 44 diff changeset	152
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	153	b := CheckBox label:'check' model:model .
49 4dd0f5c3353e . claus parents: 44 diff changeset	154	b open.
4dd0f5c3353e . claus parents: 44 diff changeset	155	model inspect.
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	156	[exEnd]
49 4dd0f5c3353e . claus parents: 44 diff changeset	157
56 aa651da467e2 . claus parents: 55 diff changeset	158
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	159	with a model and different aspect & changeSelector
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	160	setting the aspect to nil suppresses fetching the value from the model.
49 4dd0f5c3353e . claus parents: 44 diff changeset	161	(using a plug here, for demonstration only):
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	162	[exBegin]
44 97c1c943bef6 Initial revision claus parents: diff changeset	163	\|b model\|
97c1c943bef6 Initial revision claus parents: diff changeset	164
97c1c943bef6 Initial revision claus parents: diff changeset	165	model := Plug new.
184 13a2f3677c68 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 164 diff changeset	166	model respondTo:#changeCheck: with:[:arg \| Transcript showCR:'change to ' , arg printString].
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	167	model respondTo:#value with:[false].
44 97c1c943bef6 Initial revision claus parents: diff changeset	168
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	169	b := CheckBox label:'check'.
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	170	b aspectMessage:nil; model:model; changeMessage:#changeCheck:.
44 97c1c943bef6 Initial revision claus parents: diff changeset	171	b open.
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	172	[exEnd]
44 97c1c943bef6 Initial revision claus parents: diff changeset	173
56 aa651da467e2 . claus parents: 55 diff changeset	174
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	175	with an enableChannel
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	176	[exBegin]
115 0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	177	\|b enaToggle enaHolder\|
0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	178
0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	179	enaHolder := true asValue.
0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	180
0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	181	enaToggle := Toggle label:'enable'.
0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	182	enaToggle model:enaHolder.
0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	183	enaToggle open.
0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	184
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	185	b := CheckBox label:'check'.
184 13a2f3677c68 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 164 diff changeset	186	b action:[:value \| Transcript show:'set to: '; showCR:value].
115 0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	187	b enableChannel:enaHolder.
0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	188	b open.
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	189	[exEnd]
115 0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	190
0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	191
56 aa651da467e2 . claus parents: 55 diff changeset	192	with models, one checkBox disabling the others:
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	193	[exBegin]
56 aa651da467e2 . claus parents: 55 diff changeset	194	\|dialog translator enableChannel val1 val2 val3 eBox box1 box2 box3\|
aa651da467e2 . claus parents: 55 diff changeset	195
aa651da467e2 . claus parents: 55 diff changeset	196	translator := Plug new.
aa651da467e2 . claus parents: 55 diff changeset	197	translator respondTo:#enableDisable
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	198	with:[
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	199	enableChannel value
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	200	ifTrue:[
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	201	box1 enable.
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	202	box2 enable.
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	203	box3 enable.
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	204	]
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	205	ifFalse:[
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	206	box1 disable.
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	207	box2 disable.
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	208	box3 disable.
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	209	]
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	210	].
56 aa651da467e2 . claus parents: 55 diff changeset	211
aa651da467e2 . claus parents: 55 diff changeset	212	enableChannel := true asValue.
aa651da467e2 . claus parents: 55 diff changeset	213	enableChannel onChangeSend:#enableDisable to:translator.
aa651da467e2 . claus parents: 55 diff changeset	214	val1 := true asValue.
aa651da467e2 . claus parents: 55 diff changeset	215	val2 := false asValue.
aa651da467e2 . claus parents: 55 diff changeset	216	val3 := true asValue.
aa651da467e2 . claus parents: 55 diff changeset	217
aa651da467e2 . claus parents: 55 diff changeset	218	dialog := Dialog new.
aa651da467e2 . claus parents: 55 diff changeset	219	dialog addCheckBox:'enable' on:enableChannel.
aa651da467e2 . claus parents: 55 diff changeset	220	dialog addVerticalSpace.
aa651da467e2 . claus parents: 55 diff changeset	221	dialog leftIndent:30.
aa651da467e2 . claus parents: 55 diff changeset	222	box1 := dialog addCheckBox:'value1' on:val1.
aa651da467e2 . claus parents: 55 diff changeset	223	dialog addVerticalSpace.
aa651da467e2 . claus parents: 55 diff changeset	224	box2 := dialog addCheckBox:'value2' on:val2.
aa651da467e2 . claus parents: 55 diff changeset	225	dialog addVerticalSpace.
aa651da467e2 . claus parents: 55 diff changeset	226	box3 := dialog addCheckBox:'value3' on:val3.
aa651da467e2 . claus parents: 55 diff changeset	227	dialog addVerticalSpace.
aa651da467e2 . claus parents: 55 diff changeset	228	dialog addOkButton.
aa651da467e2 . claus parents: 55 diff changeset	229
aa651da467e2 . claus parents: 55 diff changeset	230	dialog open.
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	231	[exEnd]
56 aa651da467e2 . claus parents: 55 diff changeset	232
aa651da467e2 . claus parents: 55 diff changeset	233
49 4dd0f5c3353e . claus parents: 44 diff changeset	234	multiple checkBoxes on a single model (using different aspects)
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	235	[exBegin]
79 76d553a6c034 . Claus Gittinger <cg@exept.de> parents: 78 diff changeset	236	\|top panel b model value1 value2\|
49 4dd0f5c3353e . claus parents: 44 diff changeset	237
4dd0f5c3353e . claus parents: 44 diff changeset	238	value1 := true.
4dd0f5c3353e . claus parents: 44 diff changeset	239	value2 := false.
4dd0f5c3353e . claus parents: 44 diff changeset	240	model := Plug new.
4dd0f5c3353e . claus parents: 44 diff changeset	241	model respondTo:#value1 with:[value1].
4dd0f5c3353e . claus parents: 44 diff changeset	242	model respondTo:#value1: with:[:val \| value1 := val].
4dd0f5c3353e . claus parents: 44 diff changeset	243	model respondTo:#value2 with:[value2].
4dd0f5c3353e . claus parents: 44 diff changeset	244	model respondTo:#value2: with:[:val \| value2 := val].
4dd0f5c3353e . claus parents: 44 diff changeset	245
4dd0f5c3353e . claus parents: 44 diff changeset	246	top := DialogBox new.
4dd0f5c3353e . claus parents: 44 diff changeset	247	top extent:200@300.
4dd0f5c3353e . claus parents: 44 diff changeset	248
4dd0f5c3353e . claus parents: 44 diff changeset	249	panel := VerticalPanelView new.
4dd0f5c3353e . claus parents: 44 diff changeset	250
4dd0f5c3353e . claus parents: 44 diff changeset	251	b := CheckBox in:panel.
4dd0f5c3353e . claus parents: 44 diff changeset	252	b label:'check1'.
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	253	b aspect:#value1; model:model; changeMessage:#value1:.
49 4dd0f5c3353e . claus parents: 44 diff changeset	254
4dd0f5c3353e . claus parents: 44 diff changeset	255	b := CheckBox in:panel.
4dd0f5c3353e . claus parents: 44 diff changeset	256	b label:'check2'.
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	257	b aspect:#value2; model:model; changeMessage:#value2:.
49 4dd0f5c3353e . claus parents: 44 diff changeset	258
4dd0f5c3353e . claus parents: 44 diff changeset	259	top addComponent:panel.
4dd0f5c3353e . claus parents: 44 diff changeset	260	top addAbortButton; addOkButton.
4dd0f5c3353e . claus parents: 44 diff changeset	261	top openModal.
4dd0f5c3353e . claus parents: 44 diff changeset	262
79 76d553a6c034 . Claus Gittinger <cg@exept.de> parents: 78 diff changeset	263	top accepted ifTrue:[
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	264	Transcript show:'value1: '; showCR:model value1.
64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	265	Transcript show:'value2: '; showCR:model value2.
49 4dd0f5c3353e . claus parents: 44 diff changeset	266	]
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	267	[exEnd]
44 97c1c943bef6 Initial revision claus parents: diff changeset	268	"
97c1c943bef6 Initial revision claus parents: diff changeset	269	! !
97c1c943bef6 Initial revision claus parents: diff changeset	270
273 01541272ce8d resource spec updated; cache device form Claus Gittinger <cg@exept.de> parents: 268 diff changeset	271	!CheckBox class methodsFor:'instance creation'!
62 378b60ba1200 . claus parents: 59 diff changeset	272
76 885bf57761d5 . claus parents: 66 diff changeset	273	label:aStringOrImage model:aModel
885bf57761d5 . claus parents: 66 diff changeset	274	"create & return a new checkBox, on aModel (typically a ValueHolder),
885bf57761d5 . claus parents: 66 diff changeset	275	with aStringOrImage as label."
885bf57761d5 . claus parents: 66 diff changeset	276
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	277	^ (self model:aModel) label:aStringOrImage
76 885bf57761d5 . claus parents: 66 diff changeset	278
885bf57761d5 . claus parents: 66 diff changeset	279	"Created: 17.9.1995 / 14:20:58 / claus"
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	280	"Modified: 28.2.1997 / 19:23:59 / cg"
56 aa651da467e2 . claus parents: 55 diff changeset	281	! !
aa651da467e2 . claus parents: 55 diff changeset	282
273 01541272ce8d resource spec updated; cache device form Claus Gittinger <cg@exept.de> parents: 268 diff changeset	283	!CheckBox class methodsFor:'defaults'!
112 bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	284
bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	285	updateStyleCache
134 049f033265f9 added style resource directive Claus Gittinger <cg@exept.de> parents: 119 diff changeset	286	"extract values from the styleSheet and cache them in class variables"
049f033265f9 added style resource directive Claus Gittinger <cg@exept.de> parents: 119 diff changeset	287
566 11ca5c6ba3d8 * empty log message * Claus Gittinger <cg@exept.de> parents: 527 diff changeset	288	<resource: #style (#'checkBox.labelForegroundColor'
11ca5c6ba3d8 * empty log message * Claus Gittinger <cg@exept.de> parents: 527 diff changeset	289	#'checkBox.disabledLabelForegroundColor'
2777 56bb352f6b91 * empty log message * Claus Gittinger <cg@exept.de> parents: 2742 diff changeset	290	#'checkBox.disabledLabelEtchedForegroundColor'
566 11ca5c6ba3d8 * empty log message * Claus Gittinger <cg@exept.de> parents: 527 diff changeset	291	#'checkBox.toggleLeft')>
134 049f033265f9 added style resource directive Claus Gittinger <cg@exept.de> parents: 119 diff changeset	292
830 028b7bf9aaad take default font from class Label tz parents: 820 diff changeset	293	DefaultFont := StyleSheet fontAt:'label.font'.
028b7bf9aaad take default font from class Label tz parents: 820 diff changeset	294	DefaultLabelForegroundColor := StyleSheet colorAt:'checkBox.labelForegroundColor'.
566 11ca5c6ba3d8 * empty log message * Claus Gittinger <cg@exept.de> parents: 527 diff changeset	295	DefaultDisabledLabelForegroundColor := StyleSheet colorAt:'checkBox.disabledLabelForegroundColor'.
2060 ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	296	DefaultDisabledLabelForegroundColor isNil ifTrue:[
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	297	DefaultDisabledLabelForegroundColor := StyleSheet colorAt:'button.disabledForegroundColor'.
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	298	].
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	299	DefaultDisabledLabelEtchedForegroundColor := StyleSheet colorAt:'checkBox.disabledLabelEtchedForegroundColor'.
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	300	DefaultDisabledLabelEtchedForegroundColor isNil ifTrue:[
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	301	DefaultDisabledLabelEtchedForegroundColor := StyleSheet colorAt:'button.disabledEtchedForegroundColor'.
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	302	].
830 028b7bf9aaad take default font from class Label tz parents: 820 diff changeset	303	CheckToggleLeft := StyleSheet at:'checkBox.toggleLeft' default:true
112 bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	304
bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	305	"
bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	306	self updateStyleCache
bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	307	"
bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	308
bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	309	"Created: 14.12.1995 / 14:47:22 / cg"
566 11ca5c6ba3d8 * empty log message * Claus Gittinger <cg@exept.de> parents: 527 diff changeset	310	"Modified: 20.10.1997 / 13:51:30 / cg"
112 bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	311	! !
bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	312
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	313	!CheckBox methodsFor:'accessing-behavior'!
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	314
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	315	action:aBlock
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	316	"set the actionBlock; forwarded to the toggle"
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	317
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	318	toggleView action:aBlock
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	319
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	320	"Modified: 25.4.1996 / 16:31:19 / cg"
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	321	!
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	322
299 740258e44b3c added #enabled. ca parents: 284 diff changeset	323	enabled
740258e44b3c added #enabled. ca parents: 284 diff changeset	324	"return true, if the checkBox is enabled.
740258e44b3c added #enabled. ca parents: 284 diff changeset	325	forwarded to toggle"
740258e44b3c added #enabled. ca parents: 284 diff changeset	326
740258e44b3c added #enabled. ca parents: 284 diff changeset	327	^ toggleView enabled.
740258e44b3c added #enabled. ca parents: 284 diff changeset	328	!
740258e44b3c added #enabled. ca parents: 284 diff changeset	329
1297 c7ece249c083 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1276 diff changeset	330	enabled:aBoolean
c7ece249c083 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1276 diff changeset	331	"enable/diable the checkBox; forwarded to toggle & change labels color"
c7ece249c083 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1276 diff changeset	332
1505 1d7b8a023233 cursor when disabled tm parents: 1481 diff changeset	333	\|clr cursor\|
1297 c7ece249c083 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1276 diff changeset	334
c7ece249c083 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1276 diff changeset	335	toggleView enabled:aBoolean.
2060 ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	336	self enableStateChanged.
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	337	"/ aBoolean ifTrue:[
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	338	"/ labelView etchedForegroundColor:nil.
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	339	"/ clr := labelForegroundColor.
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	340	"/ clr isNil ifTrue:[ clr := labelView foregroundColor ].
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	341	"/ cursor := Cursor hand.
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	342	"/ ] ifFalse:[
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	343	"/ disabledLabelEtchedForegroundColor notNil ifTrue:[ labelView etchedForegroundColor:disabledLabelEtchedForegroundColor ].
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	344	"/ clr := disabledLabelForegroundColor.
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	345	"/ clr isNil ifTrue:[ clr := toggleView disabledForegroundColor ].
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	346	"/ cursor := Cursor normal.
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	347	"/ ].
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	348	"/ labelView cursor:cursor.
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	349	"/ self cursor:cursor.
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	350	"/ toggleView cursor:cursor.
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	351	"/ labelView foregroundColor:clr.
1297 c7ece249c083 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1276 diff changeset	352
c7ece249c083 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1276 diff changeset	353	"Modified: / 25.4.1996 / 16:31:40 / cg"
c7ece249c083 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1276 diff changeset	354	"Created: / 30.3.1999 / 14:54:48 / stefan"
c7ece249c083 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1276 diff changeset	355	!
c7ece249c083 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1276 diff changeset	356
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	357	pressAction:aBlock
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	358	"set the pressAction; forwarded to the toggle"
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	359
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	360	toggleView pressAction:aBlock.
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	361
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	362	"Created: 22.9.1995 / 15:54:04 / claus"
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	363	"Modified: 25.4.1996 / 16:31:52 / cg"
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	364	!
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	365
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	366	releaseAction:aBlock
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	367	"set the releaseAction; forwarded to the toggle"
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	368
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	369	toggleView releaseAction:aBlock.
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	370
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	371	"Created: 22.9.1995 / 15:54:11 / claus"
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	372	"Modified: 25.4.1996 / 16:32:00 / cg"
78 30cd1e737c7f . claus parents: 76 diff changeset	373	! !
30cd1e737c7f . claus parents: 76 diff changeset	374
115 0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	375	!CheckBox methodsFor:'accessing-channels'!
0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	376
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	377	backgroundChannel
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	378
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	379	^labelView backgroundChannel
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	380	!
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	381
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	382	backgroundChannel:aChannel
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	383
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	384	labelView backgroundChannel: (backgroundChannel := aChannel).
1675 355c448a2570 no need for an extra block to send #enableStateChanged Claus Gittinger <cg@exept.de> parents: 1652 diff changeset	385	aChannel onChangeSend:#enableStateChanged to:self.
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	386	!
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	387
164 74f32e7b92fc added enableChannel Claus Gittinger <cg@exept.de> parents: 159 diff changeset	388	enableChannel
74f32e7b92fc added enableChannel Claus Gittinger <cg@exept.de> parents: 159 diff changeset	389	"return a valueHolder for enable/disable"
74f32e7b92fc added enableChannel Claus Gittinger <cg@exept.de> parents: 159 diff changeset	390
74f32e7b92fc added enableChannel Claus Gittinger <cg@exept.de> parents: 159 diff changeset	391	^ toggleView enableChannel
74f32e7b92fc added enableChannel Claus Gittinger <cg@exept.de> parents: 159 diff changeset	392
74f32e7b92fc added enableChannel Claus Gittinger <cg@exept.de> parents: 159 diff changeset	393	"Created: 30.4.1996 / 15:11:13 / cg"
74f32e7b92fc added enableChannel Claus Gittinger <cg@exept.de> parents: 159 diff changeset	394	!
74f32e7b92fc added enableChannel Claus Gittinger <cg@exept.de> parents: 159 diff changeset	395
115 0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	396	enableChannel:aChannel
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	397	"set the enableChannel"
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	398
119 913df6ba1ccc immediately change fg color when enableChannel is set Claus Gittinger <cg@exept.de> parents: 115 diff changeset	399	\|wasEnabled\|
913df6ba1ccc immediately change fg color when enableChannel is set Claus Gittinger <cg@exept.de> parents: 115 diff changeset	400
913df6ba1ccc immediately change fg color when enableChannel is set Claus Gittinger <cg@exept.de> parents: 115 diff changeset	401	wasEnabled := toggleView enabled.
115 0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	402	toggleView enableChannel:aChannel.
1675 355c448a2570 no need for an extra block to send #enableStateChanged Claus Gittinger <cg@exept.de> parents: 1652 diff changeset	403	aChannel onChangeSend:#enableStateChanged to:self.
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	404
119 913df6ba1ccc immediately change fg color when enableChannel is set Claus Gittinger <cg@exept.de> parents: 115 diff changeset	405	aChannel value ~~ wasEnabled ifTrue:[
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	406	self enableStateChanged
119 913df6ba1ccc immediately change fg color when enableChannel is set Claus Gittinger <cg@exept.de> parents: 115 diff changeset	407	]
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	408	!
115 0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	409
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	410	foregroundChannel
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	411
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	412	^labelView foregroundChannel
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	413	!
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	414
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	415	foregroundChannel:aChannel
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	416
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	417	labelView foregroundChannel: (foregroundChannel := aChannel).
1675 355c448a2570 no need for an extra block to send #enableStateChanged Claus Gittinger <cg@exept.de> parents: 1652 diff changeset	418	aChannel onChangeSend:#enableStateChanged to:self.
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	419
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	420	!
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	421
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	422	labelChannel
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	423
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	424	^labelView labelChannel
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	425	!
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	426
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	427	labelChannel:aChannel
1769 68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	428	labelView labelChannel notNil ifTrue:[
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	429	labelView labelChannel removeDependent:self
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	430	].
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	431	labelView labelChannel: aChannel.
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	432	aChannel notNil ifTrue:[
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	433	aChannel addDependent:self
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	434	].
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	435
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	436	! !
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	437
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	438	!CheckBox methodsFor:'accessing-colors'!
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	439
851 f7e436fe29ee get colors selectors added tz parents: 830 diff changeset	440	backgroundColor
f7e436fe29ee get colors selectors added tz parents: 830 diff changeset	441	"get backgroundColor of the label view"
f7e436fe29ee get colors selectors added tz parents: 830 diff changeset	442
f7e436fe29ee get colors selectors added tz parents: 830 diff changeset	443	^labelView backgroundColor
f7e436fe29ee get colors selectors added tz parents: 830 diff changeset	444	!
f7e436fe29ee get colors selectors added tz parents: 830 diff changeset	445
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	446	backgroundColor: backgroundColor
851 f7e436fe29ee get colors selectors added tz parents: 830 diff changeset	447	"set backgroundColor only for the label view"
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	448
903 77a51b230754 viewBackground setting must change mine too Claus Gittinger <cg@exept.de> parents: 851 diff changeset	449	labelView backgroundColor: backgroundColor.
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	450	!
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	451
2060 ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	452	disabledLabelEtchedForegroundColor
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	453	"get the disabledLabelForegroundColor; forwarded to the toggle"
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	454
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	455	^ toggleView disabledEtchedForegroundColor
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	456	!
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	457
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	458	disabledLabelForegroundColor
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	459	"get the disabledLabelForegroundColor; forwarded to the toggle"
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	460
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	461	disabledLabelForegroundColor isNil ifTrue:[ ^ toggleView disabledForegroundColor ].
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	462	^ disabledLabelForegroundColor
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	463
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	464	"Created: 16.12.1995 / 19:47:45 / cg"
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	465	"Modified: 22.5.1996 / 13:16:55 / cg"
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	466	!
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	467
851 f7e436fe29ee get colors selectors added tz parents: 830 diff changeset	468	foregroundColor
f7e436fe29ee get colors selectors added tz parents: 830 diff changeset	469	"get foregroundColor of the label view"
f7e436fe29ee get colors selectors added tz parents: 830 diff changeset	470
f7e436fe29ee get colors selectors added tz parents: 830 diff changeset	471	^labelView foregroundColor
f7e436fe29ee get colors selectors added tz parents: 830 diff changeset	472	!
f7e436fe29ee get colors selectors added tz parents: 830 diff changeset	473
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	474	foregroundColor: foregroundColor
851 f7e436fe29ee get colors selectors added tz parents: 830 diff changeset	475	"set foregroundColor only for the label view"
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	476
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	477	labelView foregroundColor: (labelForegroundColor := foregroundColor).
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	478	foregroundChannel notNil ifTrue: [foregroundChannel value: foregroundColor]
903 77a51b230754 viewBackground setting must change mine too Claus Gittinger <cg@exept.de> parents: 851 diff changeset	479	!
77a51b230754 viewBackground setting must change mine too Claus Gittinger <cg@exept.de> parents: 851 diff changeset	480
2060 ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	481	labelForegroundColor
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	482	"get the labels foregroundColor"
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	483
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	484	labelForegroundColor isNil ifTrue:[ ^ labelView foregroundColor ].
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	485	^ labelForegroundColor
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	486
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	487	"Created: 16.12.1995 / 19:47:20 / cg"
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	488	"Modified: 25.4.1996 / 16:33:26 / cg"
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	489	!
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	490
903 77a51b230754 viewBackground setting must change mine too Claus Gittinger <cg@exept.de> parents: 851 diff changeset	491	viewBackground: backgroundColor
77a51b230754 viewBackground setting must change mine too Claus Gittinger <cg@exept.de> parents: 851 diff changeset	492	"set backgroundColor"
77a51b230754 viewBackground setting must change mine too Claus Gittinger <cg@exept.de> parents: 851 diff changeset	493
77a51b230754 viewBackground setting must change mine too Claus Gittinger <cg@exept.de> parents: 851 diff changeset	494	labelView backgroundColor: backgroundColor.
77a51b230754 viewBackground setting must change mine too Claus Gittinger <cg@exept.de> parents: 851 diff changeset	495	super viewBackground: backgroundColor
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	496	! !
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	497
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	498	!CheckBox methodsFor:'accessing-components'!
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	499
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	500	labelView
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	501	"return the labelView; allows manipulation of the
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	502	labels attributes (colors etc.)"
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	503
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	504	^ labelView
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	505	!
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	506
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	507	toggleView
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	508	"return the toggleView; allows manipulation of the
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	509	toggles attributes (colors etc.)"
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	510
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	511	^ toggleView
115 0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	512	! !
0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	513
56 aa651da467e2 . claus parents: 55 diff changeset	514	!CheckBox methodsFor:'accessing-look'!
44 97c1c943bef6 Initial revision claus parents: diff changeset	515
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	516	activeLogo:anImageOrString
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	517	"set the activeLogo; forwarded to the toggle"
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	518
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	519	toggleView activeLogo:anImageOrString
56 aa651da467e2 . claus parents: 55 diff changeset	520
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	521	"Created: 22.9.1995 / 15:44:08 / claus"
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	522	"Modified: 25.4.1996 / 16:32:50 / cg"
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	523	!
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	524
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	525	font
185 846c548b3c77 method comments Claus Gittinger <cg@exept.de> parents: 184 diff changeset	526	"return the font. Forward from label"
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	527
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	528	^ labelView font
185 846c548b3c77 method comments Claus Gittinger <cg@exept.de> parents: 184 diff changeset	529
846c548b3c77 method comments Claus Gittinger <cg@exept.de> parents: 184 diff changeset	530	"Modified: 22.5.1996 / 13:17:07 / cg"
49 4dd0f5c3353e . claus parents: 44 diff changeset	531	!
44 97c1c943bef6 Initial revision claus parents: diff changeset	532
56 aa651da467e2 . claus parents: 55 diff changeset	533	font:aFont
185 846c548b3c77 method comments Claus Gittinger <cg@exept.de> parents: 184 diff changeset	534	"set the font. Forward to the label & resize myself.
846c548b3c77 method comments Claus Gittinger <cg@exept.de> parents: 184 diff changeset	535	CAVEAT: with the addition of Text objects,
268 978db6396b49 * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	536	this method is going to be obsoleted by a textStyle
978db6396b49 * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	537	method, which allows specific control over
978db6396b49 * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	538	normalFont/boldFont/italicFont parameters."
55 75c4a8031e66 . claus parents: 49 diff changeset	539
56 aa651da467e2 . claus parents: 55 diff changeset	540	labelView font:aFont.
aa651da467e2 . claus parents: 55 diff changeset	541	labelView forceResize.
79 76d553a6c034 . Claus Gittinger <cg@exept.de> parents: 78 diff changeset	542	self layoutChanged.
76d553a6c034 . Claus Gittinger <cg@exept.de> parents: 78 diff changeset	543	self resize.
185 846c548b3c77 method comments Claus Gittinger <cg@exept.de> parents: 184 diff changeset	544
846c548b3c77 method comments Claus Gittinger <cg@exept.de> parents: 184 diff changeset	545	"Modified: 22.5.1996 / 13:17:28 / cg"
49 4dd0f5c3353e . claus parents: 44 diff changeset	546	!
4dd0f5c3353e . claus parents: 44 diff changeset	547
56 aa651da467e2 . claus parents: 55 diff changeset	548	label
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	549	"return the labels logo"
56 aa651da467e2 . claus parents: 55 diff changeset	550
aa651da467e2 . claus parents: 55 diff changeset	551	^ labelView label
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	552
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	553	"Modified: 25.4.1996 / 16:33:08 / cg"
79 76d553a6c034 . Claus Gittinger <cg@exept.de> parents: 78 diff changeset	554	!
76d553a6c034 . Claus Gittinger <cg@exept.de> parents: 78 diff changeset	555
1879 4648f3ae6293 shortcut-key support; ca parents: 1821 diff changeset	556	label:aStringOrImageOrForm
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	557	"set the logo; forward to label & resize"
79 76d553a6c034 . Claus Gittinger <cg@exept.de> parents: 78 diff changeset	558
1879 4648f3ae6293 shortcut-key support; ca parents: 1821 diff changeset	559	\|xlatedLabel\|
4648f3ae6293 shortcut-key support; ca parents: 1821 diff changeset	560
4648f3ae6293 shortcut-key support; ca parents: 1821 diff changeset	561	xlatedLabel := self defineShortcutAndTranslateLabelStringFrom:aStringOrImageOrForm.
4648f3ae6293 shortcut-key support; ca parents: 1821 diff changeset	562	labelView label:xlatedLabel.
1769 68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	563	self resizeForChangedLabel.
79 76d553a6c034 . Claus Gittinger <cg@exept.de> parents: 78 diff changeset	564	!
76d553a6c034 . Claus Gittinger <cg@exept.de> parents: 78 diff changeset	565
76d553a6c034 . Claus Gittinger <cg@exept.de> parents: 78 diff changeset	566	passiveLogo:anImageOrString
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	567	"set the passiveLogo; forwarded to the toggle"
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	568
79 76d553a6c034 . Claus Gittinger <cg@exept.de> parents: 78 diff changeset	569	toggleView passiveLogo:anImageOrString
76d553a6c034 . Claus Gittinger <cg@exept.de> parents: 78 diff changeset	570
76d553a6c034 . Claus Gittinger <cg@exept.de> parents: 78 diff changeset	571	"Created: 22.9.1995 / 15:44:14 / claus"
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	572	"Modified: 25.4.1996 / 16:33:41 / cg"
1769 68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	573	!
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	574
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	575	resizeForLabel
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	576	^ resizeForLabel ? false
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	577	!
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	578
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	579	resizeForLabel:aBoolean
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	580	resizeForLabel := aBoolean
56 aa651da467e2 . claus parents: 55 diff changeset	581	! !
aa651da467e2 . claus parents: 55 diff changeset	582
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	583	!CheckBox methodsFor:'accessing-mvc'!
63 e560d8279473 . claus parents: 62 diff changeset	584
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	585	aspectMessage:aspectSymbol
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	586	"set the aspectMessage; forward to label & toggle"
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	587
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	588	labelView aspectMessage:aspectSymbol. "/ in case the label updates its logo from the model
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	589	toggleView aspectMessage:aspectSymbol
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	590
313 64fd625d3107 comments Claus Gittinger <cg@exept.de> parents: 299 diff changeset	591	"Modified: 28.2.1997 / 19:50:53 / cg"
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	592	!
63 e560d8279473 . claus parents: 62 diff changeset	593
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	594	changeMessage:aChangeSelector
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	595	"set the changeMessage; forward to toggle"
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	596
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	597	toggleView changeMessage:aChangeSelector
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	598
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	599	"Modified: 25.4.1996 / 16:33:55 / cg"
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	600	!
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	601
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	602	model:aModel
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	603	"set the model; forward to label & toggle"
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	604
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	605	labelView model:aModel.
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	606	toggleView model:aModel
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	607
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	608	"Modified: 25.4.1996 / 16:34:00 / cg"
63 e560d8279473 . claus parents: 62 diff changeset	609	! !
e560d8279473 . claus parents: 62 diff changeset	610
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	611	!CheckBox methodsFor:'accessing-state'!
55 75c4a8031e66 . claus parents: 49 diff changeset	612
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	613	isOn
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	614	"return true, if the check is on; false otherwise"
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	615
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	616	^ toggleView isOn
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	617
bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	618	"Modified: 25.4.1996 / 16:34:15 / cg"
159 0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	619	!
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	620
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	621	turnOff
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	622	"turn the check off; forwarded to the toggle"
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	623
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	624	toggleView turnOff
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	625
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	626	"Modified: 25.4.1996 / 16:32:14 / cg"
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	627	!
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	628
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	629	turnOn
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	630	"turn the check on; forwarded to the toggle"
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	631
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	632	toggleView turnOn
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	633
0596de11a136 examples Claus Gittinger <cg@exept.de> parents: 155 diff changeset	634	"Modified: 25.4.1996 / 16:32:21 / cg"
44 97c1c943bef6 Initial revision claus parents: diff changeset	635	! !
97c1c943bef6 Initial revision claus parents: diff changeset	636
115 0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	637	!CheckBox methodsFor:'change & update'!
0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	638
0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	639	enableStateChanged
1675 355c448a2570 no need for an extra block to send #enableStateChanged Claus Gittinger <cg@exept.de> parents: 1652 diff changeset	640	"handle changes on the enableChannel or fg/bg color, change labels color."
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	641
119 913df6ba1ccc immediately change fg color when enableChannel is set Claus Gittinger <cg@exept.de> parents: 115 diff changeset	642	\|clr\|
913df6ba1ccc immediately change fg color when enableChannel is set Claus Gittinger <cg@exept.de> parents: 115 diff changeset	643
1276 d44c8332940d checkin from browser Claus Gittinger <cg@exept.de> parents: 1265 diff changeset	644	self enabled ifTrue:[
2060 ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	645	labelView etchedForegroundColor:nil.
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	646
820 0f0b4a82bdc5 set correct FG color after enabling tz parents: 817 diff changeset	647	(foregroundChannel notNil and: [foregroundChannel value notNil])
0f0b4a82bdc5 set correct FG color after enabling tz parents: 817 diff changeset	648	ifTrue: [labelView foregroundChannel: foregroundChannel]
1652 311b68620aff foregroundColor of label (if not black; i.e. decWindowsStyle) Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	649	ifFalse: [labelView foregroundColor:(labelForegroundColor ? (Label defaultForegroundColor))].
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	650	labelForegroundColor := labelView foregroundColor
1276 d44c8332940d checkin from browser Claus Gittinger <cg@exept.de> parents: 1265 diff changeset	651	] ifFalse:[
2060 ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	652	disabledLabelEtchedForegroundColor notNil ifTrue:[ labelView etchedForegroundColor:disabledLabelEtchedForegroundColor ].
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	653	labelView foregroundChannel: nil
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	654	].
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	655
115 0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	656	toggleView enabled ifTrue:[
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	657	clr := self labelForegroundColor.
1505 1d7b8a023233 cursor when disabled tm parents: 1481 diff changeset	658	cursor := Cursor hand.
115 0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	659	] ifFalse:[
1505 1d7b8a023233 cursor when disabled tm parents: 1481 diff changeset	660	clr := self disabledLabelForegroundColor.
1d7b8a023233 cursor when disabled tm parents: 1481 diff changeset	661	cursor := Cursor normal.
817 f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	662	].
f6d08ea5b82b revised for the docu tz parents: 757 diff changeset	663	labelView foregroundColor:clr.
1505 1d7b8a023233 cursor when disabled tm parents: 1481 diff changeset	664	labelView cursor:cursor.
1d7b8a023233 cursor when disabled tm parents: 1481 diff changeset	665	self cursor:cursor.
1d7b8a023233 cursor when disabled tm parents: 1481 diff changeset	666	toggleView cursor:cursor.
1769 68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	667	!
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	668
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	669	update:something with:aParameter from:changedObject
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	670	changedObject == labelView ifTrue:[
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	671	something == #sizeOfView ifTrue:[
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	672	self resizeForChangedLabel.
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	673	^ self
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	674	]
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	675	].
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	676	"/ changedObject == labelView labelChannel ifTrue:[
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	677	"/ self resizeForChangedLabel.
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	678	"/ ^ self
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	679	"/ ].
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	680	super update:something with:aParameter from:changedObject
115 0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	681	! !
0147e9d06caa added support for enableChannel Claus Gittinger <cg@exept.de> parents: 114 diff changeset	682
209 448124e85ccd keyboard delegation made explicit, for space only Claus Gittinger <cg@exept.de> parents: 192 diff changeset	683	!CheckBox methodsFor:'event handling'!
448124e85ccd keyboard delegation made explicit, for space only Claus Gittinger <cg@exept.de> parents: 192 diff changeset	684
341 50cc3123977e invalidation Claus Gittinger <cg@exept.de> parents: 320 diff changeset	685	invalidate
484 e2b01fd13ade checkin from browser Claus Gittinger <cg@exept.de> parents: 383 diff changeset	686	super invalidate.
341 50cc3123977e invalidation Claus Gittinger <cg@exept.de> parents: 320 diff changeset	687	toggleView invalidate.
50cc3123977e invalidation Claus Gittinger <cg@exept.de> parents: 320 diff changeset	688	labelView invalidate
50cc3123977e invalidation Claus Gittinger <cg@exept.de> parents: 320 diff changeset	689
50cc3123977e invalidation Claus Gittinger <cg@exept.de> parents: 320 diff changeset	690	"Created: 1.4.1997 / 13:22:09 / cg"
484 e2b01fd13ade checkin from browser Claus Gittinger <cg@exept.de> parents: 383 diff changeset	691	"Modified: 6.8.1997 / 18:20:12 / cg"
341 50cc3123977e invalidation Claus Gittinger <cg@exept.de> parents: 320 diff changeset	692	!
50cc3123977e invalidation Claus Gittinger <cg@exept.de> parents: 320 diff changeset	693
209 448124e85ccd keyboard delegation made explicit, for space only Claus Gittinger <cg@exept.de> parents: 192 diff changeset	694	keyPress:aKey x:x y:y
2868 0050e38370ed comment Claus Gittinger <cg@exept.de> parents: 2777 diff changeset	695	"forward some key-events to my toggle-button"
0050e38370ed comment Claus Gittinger <cg@exept.de> parents: 2777 diff changeset	696
209 448124e85ccd keyboard delegation made explicit, for space only Claus Gittinger <cg@exept.de> parents: 192 diff changeset	697	aKey == Character space ifTrue:[
2868 0050e38370ed comment Claus Gittinger <cg@exept.de> parents: 2777 diff changeset	698	self hasFocus ifTrue:[
0050e38370ed comment Claus Gittinger <cg@exept.de> parents: 2777 diff changeset	699	^ toggleView toggle
0050e38370ed comment Claus Gittinger <cg@exept.de> parents: 2777 diff changeset	700	]
209 448124e85ccd keyboard delegation made explicit, for space only Claus Gittinger <cg@exept.de> parents: 192 diff changeset	701	].
448124e85ccd keyboard delegation made explicit, for space only Claus Gittinger <cg@exept.de> parents: 192 diff changeset	702	super keyPress:aKey x:x y:y
448124e85ccd keyboard delegation made explicit, for space only Claus Gittinger <cg@exept.de> parents: 192 diff changeset	703
448124e85ccd keyboard delegation made explicit, for space only Claus Gittinger <cg@exept.de> parents: 192 diff changeset	704	"Created: 10.7.1996 / 11:24:16 / cg"
448124e85ccd keyboard delegation made explicit, for space only Claus Gittinger <cg@exept.de> parents: 192 diff changeset	705	"Modified: 10.7.1996 / 11:54:52 / cg"
1879 4648f3ae6293 shortcut-key support; ca parents: 1821 diff changeset	706	!
4648f3ae6293 shortcut-key support; ca parents: 1821 diff changeset	707
4648f3ae6293 shortcut-key support; ca parents: 1821 diff changeset	708	performShortcutAction
2060 ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	709	toggleView toggle
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	710	! !
209 448124e85ccd keyboard delegation made explicit, for space only Claus Gittinger <cg@exept.de> parents: 192 diff changeset	711
1265 8d0ea1b4b97c comments Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	712	!CheckBox methodsFor:'focus handling'!
1138 14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	713
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	714	showFocus:explicit
1265 8d0ea1b4b97c comments Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	715	"the button got the keyboard focus
8d0ea1b4b97c comments Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	716	(either explicit, via tabbing; or implicit, by pointer movement)
8d0ea1b4b97c comments Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	717	- change any display attributes as req'd."
8d0ea1b4b97c comments Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	718
1696 f1bae6d68ffe eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	719	(styleSheet at:#'focusHighlightStyle') == #win95 ifTrue:[
1138 14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	720	labelView hasFocus:true.
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	721	labelView invalidate.
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	722	] ifFalse:[
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	723	^ super showFocus:explicit
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	724	]
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	725
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	726	"Created: / 17.9.1998 / 14:11:49 / cg"
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	727	"Modified: / 17.9.1998 / 14:19:33 / cg"
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	728	!
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	729
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	730	showNoFocus:explicit
1265 8d0ea1b4b97c comments Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	731	"the button lost the keyboard focus
8d0ea1b4b97c comments Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	732	(either explicit, via tabbing; or implicit, by pointer movement)
8d0ea1b4b97c comments Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	733	- change any display attributes as req'd."
8d0ea1b4b97c comments Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	734
2066 06618ad5f49f win95 style noFocus drawing Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	735	(styleSheet at:#'focusHighlightStyle') == #win95 ifTrue:[
1138 14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	736	labelView hasFocus:false.
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	737	labelView invalidate.
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	738	] ifFalse:[
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	739	^ super showNoFocus:explicit
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	740	]
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	741
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	742	"Created: / 17.9.1998 / 14:11:49 / cg"
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	743	"Modified: / 17.9.1998 / 14:19:22 / cg"
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	744	! !
14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	745
2500 1477b0a5a918 method category rename Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	746	!CheckBox methodsFor:'initialization & release'!
44 97c1c943bef6 Initial revision claus parents: diff changeset	747
218 9b155a06f6e6 handle input to my label (allow clicking on it) Claus Gittinger <cg@exept.de> parents: 216 diff changeset	748	defaultControllerClass
9b155a06f6e6 handle input to my label (allow clicking on it) Claus Gittinger <cg@exept.de> parents: 216 diff changeset	749	^ ToggleController
9b155a06f6e6 handle input to my label (allow clicking on it) Claus Gittinger <cg@exept.de> parents: 216 diff changeset	750
9b155a06f6e6 handle input to my label (allow clicking on it) Claus Gittinger <cg@exept.de> parents: 216 diff changeset	751	"Created: 18.7.1996 / 11:57:01 / cg"
9b155a06f6e6 handle input to my label (allow clicking on it) Claus Gittinger <cg@exept.de> parents: 216 diff changeset	752	!
9b155a06f6e6 handle input to my label (allow clicking on it) Claus Gittinger <cg@exept.de> parents: 216 diff changeset	753
112 bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	754	initStyle
284 8e6ed630468b commentary Claus Gittinger <cg@exept.de> parents: 282 diff changeset	755	"setup viewStyle specifics"
8e6ed630468b commentary Claus Gittinger <cg@exept.de> parents: 282 diff changeset	756
112 bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	757	super initStyle.
bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	758
bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	759	DefaultLabelForegroundColor notNil ifTrue:[
1481 f3760f102bd9 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1324 diff changeset	760	labelForegroundColor := DefaultLabelForegroundColor onDevice:device.
112 bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	761	].
bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	762	DefaultDisabledLabelForegroundColor notNil ifTrue:[
1481 f3760f102bd9 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1324 diff changeset	763	disabledLabelForegroundColor := DefaultDisabledLabelForegroundColor onDevice:device.
112 bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	764	].
2060 ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	765	DefaultDisabledLabelEtchedForegroundColor notNil ifTrue:[
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	766	disabledLabelEtchedForegroundColor := DefaultDisabledLabelEtchedForegroundColor onDevice:device.
ec6351a7cb37 support etched color (win32 style) Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	767	].
112 bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	768
bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	769	"Created: 14.12.1995 / 14:50:03 / cg"
284 8e6ed630468b commentary Claus Gittinger <cg@exept.de> parents: 282 diff changeset	770	"Modified: 22.1.1997 / 11:57:03 / cg"
112 bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	771	!
bb2cb6c553d2 allow labels colors to be set from styleSheet Claus Gittinger <cg@exept.de> parents: 100 diff changeset	772
44 97c1c943bef6 Initial revision claus parents: diff changeset	773	initialize
273 01541272ce8d resource spec updated; cache device form Claus Gittinger <cg@exept.de> parents: 268 diff changeset	774	<resource: #style (#name)>
01541272ce8d resource spec updated; cache device form Claus Gittinger <cg@exept.de> parents: 268 diff changeset	775
56 aa651da467e2 . claus parents: 55 diff changeset	776	super initialize.
44 97c1c943bef6 Initial revision claus parents: diff changeset	777
56 aa651da467e2 . claus parents: 55 diff changeset	778	borderWidth := 0.
44 97c1c943bef6 Initial revision claus parents: diff changeset	779
49 4dd0f5c3353e . claus parents: 44 diff changeset	780	hLayout := #fixLeftSpace.
44 97c1c943bef6 Initial revision claus parents: diff changeset	781	vLayout := #center.
97c1c943bef6 Initial revision claus parents: diff changeset	782
320 bf5e928d027a option to place the toggle at the right. Claus Gittinger <cg@exept.de> parents: 318 diff changeset	783	CheckToggleLeft ~~ false ifTrue:[
bf5e928d027a option to place the toggle at the right. Claus Gittinger <cg@exept.de> parents: 318 diff changeset	784	"/ toggle first ...
bf5e928d027a option to place the toggle at the right. Claus Gittinger <cg@exept.de> parents: 318 diff changeset	785	toggleView := CheckToggle in:self.
bf5e928d027a option to place the toggle at the right. Claus Gittinger <cg@exept.de> parents: 318 diff changeset	786	].
44 97c1c943bef6 Initial revision claus parents: diff changeset	787
1138 14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	788	labelView := CheckLabel in:self.
282 95209b20eaca commentary Claus Gittinger <cg@exept.de> parents: 273 diff changeset	789	"/ a kludge
188 3649c62aad46 no label, if motif style Claus Gittinger <cg@exept.de> parents: 185 diff changeset	790	styleSheet name ~~ #motif ifTrue:[
273 01541272ce8d resource spec updated; cache device form Claus Gittinger <cg@exept.de> parents: 268 diff changeset	791	labelView label:'check'; borderWidth:0.
188 3649c62aad46 no label, if motif style Claus Gittinger <cg@exept.de> parents: 185 diff changeset	792	].
44 97c1c943bef6 Initial revision claus parents: diff changeset	793	labelView forceResize.
97c1c943bef6 Initial revision claus parents: diff changeset	794	labelView adjust:#left.
246 dea18e6f07d2 use kludge interface, to prevent resize being locked. dq parents: 223 diff changeset	795	self initialHeight:labelView preferredExtent y + ViewSpacing.
55 75c4a8031e66 . claus parents: 49 diff changeset	796
320 bf5e928d027a option to place the toggle at the right. Claus Gittinger <cg@exept.de> parents: 318 diff changeset	797	CheckToggleLeft == false ifTrue:[
bf5e928d027a option to place the toggle at the right. Claus Gittinger <cg@exept.de> parents: 318 diff changeset	798	"/ toggle last ...
bf5e928d027a option to place the toggle at the right. Claus Gittinger <cg@exept.de> parents: 318 diff changeset	799	toggleView := CheckToggle in:self.
bf5e928d027a option to place the toggle at the right. Claus Gittinger <cg@exept.de> parents: 318 diff changeset	800	].
bf5e928d027a option to place the toggle at the right. Claus Gittinger <cg@exept.de> parents: 318 diff changeset	801
527 30d5dfb51612 * empty log message * Claus Gittinger <cg@exept.de> parents: 484 diff changeset	802	(StyleSheet at:'checkBoxStyle' default:StyleSheet name) == #motif ifTrue:[
30d5dfb51612 * empty log message * Claus Gittinger <cg@exept.de> parents: 484 diff changeset	803	toggleView activeLogo:nil.
30d5dfb51612 * empty log message * Claus Gittinger <cg@exept.de> parents: 484 diff changeset	804	toggleView passiveLogo:nil.
30d5dfb51612 * empty log message * Claus Gittinger <cg@exept.de> parents: 484 diff changeset	805	toggleView activeLevel:-2.
30d5dfb51612 * empty log message * Claus Gittinger <cg@exept.de> parents: 484 diff changeset	806	toggleView passiveLevel:2.
30d5dfb51612 * empty log message * Claus Gittinger <cg@exept.de> parents: 484 diff changeset	807	toggleView extent:10@10.
30d5dfb51612 * empty log message * Claus Gittinger <cg@exept.de> parents: 484 diff changeset	808	toggleView sizeFixed:true.
30d5dfb51612 * empty log message * Claus Gittinger <cg@exept.de> parents: 484 diff changeset	809	].
30d5dfb51612 * empty log message * Claus Gittinger <cg@exept.de> parents: 484 diff changeset	810
317 0f8f00dc025a both components have the same controller Claus Gittinger <cg@exept.de> parents: 313 diff changeset	811	"/ my controller handles both components
218 9b155a06f6e6 handle input to my label (allow clicking on it) Claus Gittinger <cg@exept.de> parents: 216 diff changeset	812	labelView setController:controller.
317 0f8f00dc025a both components have the same controller Claus Gittinger <cg@exept.de> parents: 313 diff changeset	813	toggleView setController:controller.
218 9b155a06f6e6 handle input to my label (allow clicking on it) Claus Gittinger <cg@exept.de> parents: 216 diff changeset	814
579 ba6e90f651d8 pass down background changes to my components Claus Gittinger <cg@exept.de> parents: 566 diff changeset	815	"/ the label can be clicked as well
ba6e90f651d8 pass down background changes to my components Claus Gittinger <cg@exept.de> parents: 566 diff changeset	816	labelView cursor:Cursor hand.
ba6e90f651d8 pass down background changes to my components Claus Gittinger <cg@exept.de> parents: 566 diff changeset	817	self cursor:Cursor hand.
ba6e90f651d8 pass down background changes to my components Claus Gittinger <cg@exept.de> parents: 566 diff changeset	818
56 aa651da467e2 . claus parents: 55 diff changeset	819	"
aa651da467e2 . claus parents: 55 diff changeset	820	all of my input goes to the toggle
209 448124e85ccd keyboard delegation made explicit, for space only Claus Gittinger <cg@exept.de> parents: 192 diff changeset	821	disabled - normally there is already an outer delegate
56 aa651da467e2 . claus parents: 55 diff changeset	822	"
209 448124e85ccd keyboard delegation made explicit, for space only Claus Gittinger <cg@exept.de> parents: 192 diff changeset	823	"/ self delegate:(KeyboardForwarder toView:toggleView).
44 97c1c943bef6 Initial revision claus parents: diff changeset	824
97c1c943bef6 Initial revision claus parents: diff changeset	825	"
97c1c943bef6 Initial revision claus parents: diff changeset	826	\|b\|
97c1c943bef6 Initial revision claus parents: diff changeset	827
97c1c943bef6 Initial revision claus parents: diff changeset	828	b := CheckBox new.
97c1c943bef6 Initial revision claus parents: diff changeset	829	b label:'foo'.
97c1c943bef6 Initial revision claus parents: diff changeset	830	b open
97c1c943bef6 Initial revision claus parents: diff changeset	831	"
188 3649c62aad46 no label, if motif style Claus Gittinger <cg@exept.de> parents: 185 diff changeset	832
1138 14dc9f6791d2 use a checkLabel for win95 style Claus Gittinger <cg@exept.de> parents: 903 diff changeset	833	"Modified: / 17.9.1998 / 14:18:18 / cg"
2157 6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2066 diff changeset	834	!
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2066 diff changeset	835
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2066 diff changeset	836	release
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2066 diff changeset	837	"release dependencies"
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2066 diff changeset	838
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2066 diff changeset	839	\|channel\|
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2066 diff changeset	840
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2066 diff changeset	841	toggleView notNil ifTrue:[
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2066 diff changeset	842	(channel := toggleView enableChannel) notNil ifTrue:[
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2066 diff changeset	843	channel retractInterestsFor:self
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2066 diff changeset	844	]
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2066 diff changeset	845	].
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2066 diff changeset	846	super release
44 97c1c943bef6 Initial revision claus parents: diff changeset	847	! !
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	848
2742 d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	849	!CheckBox methodsFor:'native widget support'!
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	850
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	851	beNativeWidget
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	852	super beNativeWidget.
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	853	"/ self makeElementsInvisible.
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	854	!
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	855
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	856	makeElementsInvisible
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	857	"when using native widget, my toggle is not visible.
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	858	(it is not destroyed, to keep a place for its attributes,
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	859	and to allow future dynamic switching and snapshot restore on
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	860	a non-native system)"
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	861
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	862	toggleView notNil ifTrue:[
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	863	toggleView beInvisible.
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	864	].
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	865	! !
d2fd4c68feb3 * empty log message * ca parents: 2500 diff changeset	866
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	867	!CheckBox methodsFor:'private'!
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	868
1769 68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	869	resizeForChangedLabel
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	870	labelView forceResize.
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	871	resizeForLabel == true ifTrue:[
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	872	self extent:(self preferredExtent)
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	873	].
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	874	self layoutChanged.
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	875	self resize.
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	876	!
68d65f17df56 added resizeForLabel attribute Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	877
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	878	sendChangeMessageWith:aValue
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	879	"redefined to have mimic changes being sent from the toggle
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	880	instead of myself"
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	881
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	882	toggleView sendChangeMessageWith:aValue
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	883	! !
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	884
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	885	!CheckBox methodsFor:'queries'!
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	886
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	887	preferredExtent
155 bc94dad4ad31 documentation Claus Gittinger <cg@exept.de> parents: 153 diff changeset	888	"compute & return the boxes preferredExtent from the components' sizes"
153 5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 134 diff changeset	889
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	890	\|prefCheck prefLabel bw2\|
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	891
223 4744780ae88d * empty log message * Claus Gittinger <cg@exept.de> parents: 218 diff changeset	892	"/ If I have an explicit preferredExtent ..
4744780ae88d * empty log message * Claus Gittinger <cg@exept.de> parents: 218 diff changeset	893
192 e060e80f8e24 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 188 diff changeset	894	preferredExtent notNil ifTrue:[
268 978db6396b49 * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	895	^ preferredExtent
192 e060e80f8e24 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 188 diff changeset	896	].
e060e80f8e24 care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 188 diff changeset	897
213 9c8f9be0956d care for a nil LabelView when computing the preferredExtent Claus Gittinger <cg@exept.de> parents: 209 diff changeset	898	(labelView isNil or:[labelView label isEmpty]) ifTrue:[
268 978db6396b49 * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	899	^ super preferredExtent
188 3649c62aad46 no label, if motif style Claus Gittinger <cg@exept.de> parents: 185 diff changeset	900	].
153 5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 134 diff changeset	901	^ super preferredExtent + (10@0).
5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 134 diff changeset	902
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	903	"/ prefCheck := toggleView preferredExtent.
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	904	"/ prefLabel := labelView preferredExtent.
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	905	"/ bw2 := borderWidth * 2.
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	906	"/ ^ (prefCheck x + prefLabel x + (3 * ViewSpacing)) @ ((prefCheck y max:prefLabel y) + bw2 + 2)
153 5167176d204b commentary Claus Gittinger <cg@exept.de> parents: 134 diff changeset	907
223 4744780ae88d * empty log message * Claus Gittinger <cg@exept.de> parents: 218 diff changeset	908	"Modified: 19.7.1996 / 20:43:47 / cg"
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	909	! !
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	910
1821 77d75eb8779d category change Claus Gittinger <cg@exept.de> parents: 1769 diff changeset	911	!CheckBox methodsFor:'queries-internal'!
382 ea14fe927a8b preps for native window support Claus Gittinger <cg@exept.de> parents: 341 diff changeset	912
ea14fe927a8b preps for native window support Claus Gittinger <cg@exept.de> parents: 341 diff changeset	913	nativeWindowType
ea14fe927a8b preps for native window support Claus Gittinger <cg@exept.de> parents: 341 diff changeset	914	"return a symbol describing my native window type
ea14fe927a8b preps for native window support Claus Gittinger <cg@exept.de> parents: 341 diff changeset	915	(may be used internally by the device as a native window creation hint)"
ea14fe927a8b preps for native window support Claus Gittinger <cg@exept.de> parents: 341 diff changeset	916
ea14fe927a8b preps for native window support Claus Gittinger <cg@exept.de> parents: 341 diff changeset	917	^ #CheckBox
ea14fe927a8b preps for native window support Claus Gittinger <cg@exept.de> parents: 341 diff changeset	918
ea14fe927a8b preps for native window support Claus Gittinger <cg@exept.de> parents: 341 diff changeset	919	"Created: 2.5.1997 / 14:41:00 / cg"
ea14fe927a8b preps for native window support Claus Gittinger <cg@exept.de> parents: 341 diff changeset	920	! !
ea14fe927a8b preps for native window support Claus Gittinger <cg@exept.de> parents: 341 diff changeset	921
273 01541272ce8d resource spec updated; cache device form Claus Gittinger <cg@exept.de> parents: 268 diff changeset	922	!CheckBox class methodsFor:'documentation'!
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	923
3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	924	version
2868 0050e38370ed comment Claus Gittinger <cg@exept.de> parents: 2777 diff changeset	925	^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.75 2005-12-21 11:34:46 cg Exp $'
100 3d33433f459c checkin from browser Claus Gittinger <cg@exept.de> parents: 86 diff changeset	926	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 21 Dec 2005 12:34:46 +0100
changeset 2868	0050e38370ed
parent 2777	56bb352f6b91
child 3287	0022d5b3949b
permissions	-rw-r--r--