hg/stx-libwidg2: CheckBox.st@08c9e2a47dc5 (annotated)

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

author	Claus Gittinger <cg@exept.de>
	Fri, 28 Jun 2019 09:21:50 +0200
changeset 6078	08c9e2a47dc5
parent 5953	06df6c8cfa0e
child 6101	ed8626f56676
permissions	-rw-r--r--