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

author	Stefan Vogel <sv@exept.de>
	Fri, 18 Jul 2008 10:55:46 +0200
changeset 3479	c6e079059768
parent 3424	013c4629ec6e
child 3528	7ba2b9cfb354
permissions	-rw-r--r--