hg/stx-libwidg: CheckToggle.st@111f603c0a1c (annotated)

0 e6a541c1c0eb Initial revision claus parents: diff changeset	1	"
4 88eb91574867 * empty log message * claus parents: 2 diff changeset	2	COPYRIGHT (c) 1991 by Claus Gittinger
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	3	All Rights Reserved
0 e6a541c1c0eb Initial revision claus parents: diff changeset	4
e6a541c1c0eb Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
e6a541c1c0eb Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
e6a541c1c0eb Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
e6a541c1c0eb Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
e6a541c1c0eb Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
e6a541c1c0eb Initial revision claus parents: diff changeset	10	hereby transferred.
e6a541c1c0eb Initial revision claus parents: diff changeset	11	"
e6a541c1c0eb Initial revision claus parents: diff changeset	12
e6a541c1c0eb Initial revision claus parents: diff changeset	13	Toggle subclass:#CheckToggle
375 6656f7e8ae20 added just another checkType: #fatcross Claus Gittinger <cg@exept.de> parents: 265 diff changeset	14	instanceVariableNames:''
6656f7e8ae20 added just another checkType: #fatcross Claus Gittinger <cg@exept.de> parents: 265 diff changeset	15	classVariableNames:'DefaultCheckForm DefaultCheckColor DefaultActiveFGColor
265 76336839475b * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	16	DefaultActiveBGColor DefaultFGColor DefaultBGColor
1123 9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	17	DefaultActiveLevel DefaultPassiveLevel DefaultBorderWidth
1528 02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	18	LabelOverMargin DefaultActiveImage DefaultPassiveImage'
375 6656f7e8ae20 added just another checkType: #fatcross Claus Gittinger <cg@exept.de> parents: 265 diff changeset	19	poolDictionaries:''
6656f7e8ae20 added just another checkType: #fatcross Claus Gittinger <cg@exept.de> parents: 265 diff changeset	20	category:'Views-Interactors'
0 e6a541c1c0eb Initial revision claus parents: diff changeset	21	!
e6a541c1c0eb Initial revision claus parents: diff changeset	22
899 aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 836 diff changeset	23	!CheckToggle class methodsFor:'documentation'!
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	24
4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	25	copyright
4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	26	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	27	COPYRIGHT (c) 1991 by Claus Gittinger
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	28	All Rights Reserved
0 e6a541c1c0eb Initial revision claus parents: diff changeset	29
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	30	This software is furnished under a license and may be used
4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	31	only in accordance with the terms of that license and with the
4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	32	inclusion of the above copyright notice. This software may not
4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	33	be provided or otherwise made available to, or used by, any
4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	34	other person. No title to or ownership of the software is
4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	35	hereby transferred.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	36	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	37	!
0 e6a541c1c0eb Initial revision claus parents: diff changeset	38
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	39	documentation
4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	40	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	41	CheckButtons are like Toggles in toggling their state when pressed.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	42	However, they show an ok-marker if on; nothing if off.
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	43	CheckButtons are mostly used as part of a checkBox (since normally,
147 155fe54b855a . claus parents: 146 diff changeset	44	you want to have some label along the check) and often grouped for
155fe54b855a . claus parents: 146 diff changeset	45	many-in-many or one-in-many setups.
130 338e856bddc9 . claus parents: 128 diff changeset	46
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	47	[StyleSheet values:]
130 338e856bddc9 . claus parents: 128 diff changeset	48
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	49	checkToggleCheckColor <Color> color to draw check-image with.
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	50	defaults to value of #buttonActiveForegroundColor.
130 338e856bddc9 . claus parents: 128 diff changeset	51
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	52	checkToggleActiveBackgroundColor background color to draw active checki-image with
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	53	checkToggleForegroundColor foreground color to use if off
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	54	checkToggleBackgroundColor background color to use if off
130 338e856bddc9 . claus parents: 128 diff changeset	55
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	56	checkToggleBitmapFile <String> name of bitmap file for check-image
130 338e856bddc9 . claus parents: 128 diff changeset	57
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	58	checkToggleStyle <Symbol> default checkForm style.
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	59	used if above is nil or file not readable
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	60	can be #cross or #check; defaults to #check
130 338e856bddc9 . claus parents: 128 diff changeset	61
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	62	checkToggleAvtiveLevel <Number> active level - defaults to value of #buttonPassiveLevel
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	63	checkTogglePassiveLevel <Number> active level - defaults to value of #buttonPassiveLevel
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	64	checkToggleBorderWidth <Number> borderWidth - defaults buttons default
130 338e856bddc9 . claus parents: 128 diff changeset	65
1528 02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	66	checkToggleActiveImage <Image> image to draw when active; if non-nil,
02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	67	this overwrites activeColor & bitmapFile above.
02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	68
02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	69	checkTogglePassiveImage <Image> image to draw when passive; if non-nil,
02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	70	this overwrites passiveColor & bitmapFile above.
02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	71
139 7dd008efa3d8 . claus parents: 136 diff changeset	72	(if not set in the styleSheet, Toggle values are taken)
7dd008efa3d8 . claus parents: 136 diff changeset	73
130 338e856bddc9 . claus parents: 128 diff changeset	74	See examples.
338e856bddc9 . claus parents: 128 diff changeset	75
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	76	[author:]
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	77	Claus Gittinger
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	78
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 440 diff changeset	79	[see also:]
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	80	CheckBox RadioButton RadioButtonGroup Toggle Button
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	81	Dialog
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	82	ValueHolder TriggerValue
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	83	Block
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	84	"
3ee5ea99d0e2 . claus parents: 77 diff changeset	85	!
3ee5ea99d0e2 . claus parents: 77 diff changeset	86
3ee5ea99d0e2 . claus parents: 77 diff changeset	87	examples
3ee5ea99d0e2 . claus parents: 77 diff changeset	88	"
3ee5ea99d0e2 . claus parents: 77 diff changeset	89	checkToggle alone:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	90	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	91	\|top check\|
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	92
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	93	top := StandardSystemView new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	94	top extent:100@100.
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	95
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	96	check := CheckToggle in:top.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	97	check origin:10@10.
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	98
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	99	top open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	100	[exEnd]
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	101
3ee5ea99d0e2 . claus parents: 77 diff changeset	102
3ee5ea99d0e2 . claus parents: 77 diff changeset	103	give it an action:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	104	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	105	\|top check\|
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	106
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	107	top := StandardSystemView new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	108	top extent:100@100.
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	109
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	110	check := CheckToggle in:top.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	111	check origin:10@10.
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 593 diff changeset	112	check action:[:value \| Transcript showCR:'changed to: ' , value printString].
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	113
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	114	top open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	115	[exEnd]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	116
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	117
3ee5ea99d0e2 . claus parents: 77 diff changeset	118	give it a model:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	119	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	120	\|top check model\|
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	121
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	122	model := false asValue.
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	123
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	124	top := StandardSystemView new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	125	top extent:100@100.
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	126
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	127	check := CheckToggle in:top.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	128	check origin:10@10.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	129	check model:model.
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	130
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	131	top openModal.
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	132
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 593 diff changeset	133	Transcript showCR:'value after closing box: ' , model value printString
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	134	[exEnd]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	135
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	136
3ee5ea99d0e2 . claus parents: 77 diff changeset	137	multiple checks on a single model (with different change selectors):
3ee5ea99d0e2 . claus parents: 77 diff changeset	138	(using a checkBox here, for the demonstration ...)
147 155fe54b855a . claus parents: 146 diff changeset	139	(this is a typical many-in-many setup)
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	140	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	141	\|top model panel ext1 ext2
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	142	readFlag writeFlag executeFlag\|
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	143
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	144	readFlag := writeFlag := true.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	145	executeFlag := false.
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	146
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	147	model := Plug new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	148	model respondTo:#read with:[readFlag].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	149	model respondTo:#write with:[writeFlag].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	150	model respondTo:#execute with:[executeFlag].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	151	model respondTo:#read: with:[:val \| readFlag := val].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	152	model respondTo:#write: with:[:val \| writeFlag := val].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	153	model respondTo:#execute: with:[:val \| executeFlag := val].
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	154
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	155	top := StandardSystemView new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	156	top extent:200@200.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	157	top label:'File permissions:'.
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	158
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	159	panel := VerticalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	160	panel horizontalLayout:#leftSpace.
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	161
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	162	#(read write execute) do:[:sym \|
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	163	\|check\|
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	164
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	165	check := CheckBox in:panel.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	166	check label:sym.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	167	check model:model; aspect:sym; changeMessage:(sym , ':') asSymbol.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	168	].
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	169
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	170	top openModal.
118 3ee5ea99d0e2 . claus parents: 77 diff changeset	171
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 593 diff changeset	172	Transcript showCR:'settings after closing box:'.
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 593 diff changeset	173	Transcript showCR:' read -> ' , readFlag printString.
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 593 diff changeset	174	Transcript showCR:' write -> ' , writeFlag printString.
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 593 diff changeset	175	Transcript showCR:' execute -> ' , executeFlag printString.
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	176	[exEnd]
130 338e856bddc9 . claus parents: 128 diff changeset	177
338e856bddc9 . claus parents: 128 diff changeset	178
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	179	checkToggles in a group - now, they have RadioButton behavior.
147 155fe54b855a . claus parents: 146 diff changeset	180	(this is a typical one-in-many setup)
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	181	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	182	\|top panel check1 check2 check3 grp\|
130 338e856bddc9 . claus parents: 128 diff changeset	183
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	184	top := StandardSystemView new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	185	top extent:200@300.
130 338e856bddc9 . claus parents: 128 diff changeset	186
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	187	panel := VerticalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
130 338e856bddc9 . claus parents: 128 diff changeset	188
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	189	check1 := CheckToggle in:panel.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	190	check2 := CheckToggle in:panel.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	191	check3 := CheckToggle in:panel.
130 338e856bddc9 . claus parents: 128 diff changeset	192
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	193	grp := RadioButtonGroup new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	194	grp add:check1.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	195	grp add:check2.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	196	grp add:check3.
130 338e856bddc9 . claus parents: 128 diff changeset	197
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	198	top open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	199	[exEnd]
146 7726707ac980 . claus parents: 139 diff changeset	200
7726707ac980 . claus parents: 139 diff changeset	201
7726707ac980 . claus parents: 139 diff changeset	202	Channel operation
7726707ac980 . claus parents: 139 diff changeset	203	-----------------
7726707ac980 . claus parents: 139 diff changeset	204
7726707ac980 . claus parents: 139 diff changeset	205	enabling other toggles via a toggle
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	206	[exBegin]
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	207	\|top panel t enableChannel\|
146 7726707ac980 . claus parents: 139 diff changeset	208
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	209	top := StandardSystemView new.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	210	top extent:(400 @ 200).
146 7726707ac980 . claus parents: 139 diff changeset	211
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	212	panel := HorizontalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
146 7726707ac980 . claus parents: 139 diff changeset	213
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	214	enableChannel := false asValue.
146 7726707ac980 . claus parents: 139 diff changeset	215
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	216	1 to:10 do:[:i \|
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	217	t := CheckToggle in:panel.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	218	t enableChannel:enableChannel.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	219	].
146 7726707ac980 . claus parents: 139 diff changeset	220
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	221	t := Toggle in:panel.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	222	t activeLogo:'enabled'; passiveLogo:'disabled'.
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	223	t pressChannel:enableChannel.
146 7726707ac980 . claus parents: 139 diff changeset	224
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	225	top open
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	226	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	227	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 18 diff changeset	228	! !
0 e6a541c1c0eb Initial revision claus parents: diff changeset	229
899 aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 836 diff changeset	230	!CheckToggle class methodsFor:'defaults'!
0 e6a541c1c0eb Initial revision claus parents: diff changeset	231
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	232	checkFormOn:aDevice
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	233	"return the form used when checkToggle is turned on.
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	234	Provided as public entry, to allow other views
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	235	to share the same check-image."
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	236
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	237	^ DefaultCheckForm on:aDevice.
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	238	!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	239
1236 529f36ae3217 added: ca parents: 1171 diff changeset	240	checkImageForStyle:aStyleSymbol
529f36ae3217 added: ca parents: 1171 diff changeset	241	"helper & public access to useful checkToggle images"
529f36ae3217 added: ca parents: 1171 diff changeset	242
529f36ae3217 added: ca parents: 1171 diff changeset	243	\|bits\|
529f36ae3217 added: ca parents: 1171 diff changeset	244
529f36ae3217 added: ca parents: 1171 diff changeset	245	aStyleSymbol == #cross ifTrue:[
529f36ae3217 added: ca parents: 1171 diff changeset	246	bits := #[2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	247	2r01000000 2r00000010
529f36ae3217 added: ca parents: 1171 diff changeset	248	2r00100000 2r00000100
529f36ae3217 added: ca parents: 1171 diff changeset	249	2r00010000 2r00001000
529f36ae3217 added: ca parents: 1171 diff changeset	250	2r00001000 2r00010000
529f36ae3217 added: ca parents: 1171 diff changeset	251	2r00000100 2r00100000
529f36ae3217 added: ca parents: 1171 diff changeset	252	2r00000010 2r01000000
529f36ae3217 added: ca parents: 1171 diff changeset	253	2r00000001 2r10000000
529f36ae3217 added: ca parents: 1171 diff changeset	254	2r00000001 2r10000000
529f36ae3217 added: ca parents: 1171 diff changeset	255	2r00000010 2r01000000
529f36ae3217 added: ca parents: 1171 diff changeset	256	2r00000100 2r00100000
529f36ae3217 added: ca parents: 1171 diff changeset	257	2r00001000 2r00010000
529f36ae3217 added: ca parents: 1171 diff changeset	258	2r00010000 2r00001000
529f36ae3217 added: ca parents: 1171 diff changeset	259	2r00100000 2r00000100
529f36ae3217 added: ca parents: 1171 diff changeset	260	2r01000000 2r00000010
529f36ae3217 added: ca parents: 1171 diff changeset	261	2r10000000 2r00000001]
529f36ae3217 added: ca parents: 1171 diff changeset	262	] ifFalse:[
529f36ae3217 added: ca parents: 1171 diff changeset	263	aStyleSymbol == #borderedCross ifTrue:[
529f36ae3217 added: ca parents: 1171 diff changeset	264	bits := #[2r11111111 2r11111111
529f36ae3217 added: ca parents: 1171 diff changeset	265	2r11000000 2r00000011
529f36ae3217 added: ca parents: 1171 diff changeset	266	2r10100000 2r00000101
529f36ae3217 added: ca parents: 1171 diff changeset	267	2r10010000 2r00001001
529f36ae3217 added: ca parents: 1171 diff changeset	268	2r10001000 2r00010001
529f36ae3217 added: ca parents: 1171 diff changeset	269	2r10000100 2r00100001
529f36ae3217 added: ca parents: 1171 diff changeset	270	2r10000010 2r01000001
529f36ae3217 added: ca parents: 1171 diff changeset	271	2r10000001 2r10000001
529f36ae3217 added: ca parents: 1171 diff changeset	272	2r10000001 2r10000001
529f36ae3217 added: ca parents: 1171 diff changeset	273	2r10000010 2r01000001
529f36ae3217 added: ca parents: 1171 diff changeset	274	2r10000100 2r00100001
529f36ae3217 added: ca parents: 1171 diff changeset	275	2r10001000 2r00010001
529f36ae3217 added: ca parents: 1171 diff changeset	276	2r10010000 2r00001001
529f36ae3217 added: ca parents: 1171 diff changeset	277	2r10100000 2r00000101
529f36ae3217 added: ca parents: 1171 diff changeset	278	2r11000000 2r00000011
529f36ae3217 added: ca parents: 1171 diff changeset	279	2r11111111 2r11111111]
529f36ae3217 added: ca parents: 1171 diff changeset	280	] ifFalse:[
529f36ae3217 added: ca parents: 1171 diff changeset	281	aStyleSymbol == #fatcross ifTrue:[
529f36ae3217 added: ca parents: 1171 diff changeset	282	bits := #[2r11000000 2r00000011
529f36ae3217 added: ca parents: 1171 diff changeset	283	2r11100000 2r00000111
529f36ae3217 added: ca parents: 1171 diff changeset	284	2r01110000 2r00001110
529f36ae3217 added: ca parents: 1171 diff changeset	285	2r00111000 2r00011100
529f36ae3217 added: ca parents: 1171 diff changeset	286	2r00011100 2r00111000
529f36ae3217 added: ca parents: 1171 diff changeset	287	2r00001110 2r01110000
529f36ae3217 added: ca parents: 1171 diff changeset	288	2r00000111 2r11100000
529f36ae3217 added: ca parents: 1171 diff changeset	289	2r00000011 2r11000000
529f36ae3217 added: ca parents: 1171 diff changeset	290	2r00000011 2r11000000
529f36ae3217 added: ca parents: 1171 diff changeset	291	2r00000111 2r11100000
529f36ae3217 added: ca parents: 1171 diff changeset	292	2r00001110 2r01110000
529f36ae3217 added: ca parents: 1171 diff changeset	293	2r00011100 2r00111000
529f36ae3217 added: ca parents: 1171 diff changeset	294	2r00111000 2r00011100
529f36ae3217 added: ca parents: 1171 diff changeset	295	2r01110000 2r00001110
529f36ae3217 added: ca parents: 1171 diff changeset	296	2r11100000 2r00000111
529f36ae3217 added: ca parents: 1171 diff changeset	297	2r11000000 2r00000011]
529f36ae3217 added: ca parents: 1171 diff changeset	298	] ifFalse:[
529f36ae3217 added: ca parents: 1171 diff changeset	299	aStyleSymbol == #borderedFatcross ifTrue:[
529f36ae3217 added: ca parents: 1171 diff changeset	300	bits := #[2r11111111 2r11111111
529f36ae3217 added: ca parents: 1171 diff changeset	301	2r11100000 2r00000111
529f36ae3217 added: ca parents: 1171 diff changeset	302	2r11110000 2r00001111
529f36ae3217 added: ca parents: 1171 diff changeset	303	2r10111000 2r00011101
529f36ae3217 added: ca parents: 1171 diff changeset	304	2r10011100 2r00111001
529f36ae3217 added: ca parents: 1171 diff changeset	305	2r10001110 2r01110001
529f36ae3217 added: ca parents: 1171 diff changeset	306	2r10000111 2r11100001
529f36ae3217 added: ca parents: 1171 diff changeset	307	2r10000011 2r11000001
529f36ae3217 added: ca parents: 1171 diff changeset	308	2r10000011 2r11000001
529f36ae3217 added: ca parents: 1171 diff changeset	309	2r10000111 2r11100001
529f36ae3217 added: ca parents: 1171 diff changeset	310	2r10001110 2r01110001
529f36ae3217 added: ca parents: 1171 diff changeset	311	2r10011100 2r00111001
529f36ae3217 added: ca parents: 1171 diff changeset	312	2r10111000 2r00011101
529f36ae3217 added: ca parents: 1171 diff changeset	313	2r11110000 2r00001111
529f36ae3217 added: ca parents: 1171 diff changeset	314	2r11100000 2r00000111
529f36ae3217 added: ca parents: 1171 diff changeset	315	2r11111111 2r11111111]
529f36ae3217 added: ca parents: 1171 diff changeset	316	] ifFalse:[
529f36ae3217 added: ca parents: 1171 diff changeset	317	aStyleSymbol == #border ifTrue:[
529f36ae3217 added: ca parents: 1171 diff changeset	318	bits := #[2r11111111 2r11111111
529f36ae3217 added: ca parents: 1171 diff changeset	319	2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	320	2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	321	2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	322	2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	323	2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	324	2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	325	2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	326	2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	327	2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	328	2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	329	2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	330	2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	331	2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	332	2r10000000 2r00000001
529f36ae3217 added: ca parents: 1171 diff changeset	333	2r11111111 2r11111111]
529f36ae3217 added: ca parents: 1171 diff changeset	334	] ifFalse:[
529f36ae3217 added: ca parents: 1171 diff changeset	335	bits := #[2r00000000 2r00000000
529f36ae3217 added: ca parents: 1171 diff changeset	336	2r00000000 2r00000010
529f36ae3217 added: ca parents: 1171 diff changeset	337	2r00000000 2r00000010
529f36ae3217 added: ca parents: 1171 diff changeset	338	2r00000000 2r00000100
529f36ae3217 added: ca parents: 1171 diff changeset	339	2r00000000 2r00000100
529f36ae3217 added: ca parents: 1171 diff changeset	340	2r00000000 2r00001000
529f36ae3217 added: ca parents: 1171 diff changeset	341	2r00000000 2r00001000
529f36ae3217 added: ca parents: 1171 diff changeset	342	2r00000000 2r00010000
529f36ae3217 added: ca parents: 1171 diff changeset	343	2r01000000 2r00110000
529f36ae3217 added: ca parents: 1171 diff changeset	344	2r00100000 2r01100000
529f36ae3217 added: ca parents: 1171 diff changeset	345	2r00011000 2r01100000
529f36ae3217 added: ca parents: 1171 diff changeset	346	2r00001110 2r11000000
529f36ae3217 added: ca parents: 1171 diff changeset	347	2r00000111 2r11000000
529f36ae3217 added: ca parents: 1171 diff changeset	348	2r00000011 2r10000000
529f36ae3217 added: ca parents: 1171 diff changeset	349	2r00000001 2r10000000
529f36ae3217 added: ca parents: 1171 diff changeset	350	2r00000000 2r00000000]
529f36ae3217 added: ca parents: 1171 diff changeset	351	]
529f36ae3217 added: ca parents: 1171 diff changeset	352	]
529f36ae3217 added: ca parents: 1171 diff changeset	353	]
529f36ae3217 added: ca parents: 1171 diff changeset	354	]
529f36ae3217 added: ca parents: 1171 diff changeset	355	].
529f36ae3217 added: ca parents: 1171 diff changeset	356	^ Form width:16 height:16 fromArray:bits on:Display
529f36ae3217 added: ca parents: 1171 diff changeset	357
529f36ae3217 added: ca parents: 1171 diff changeset	358	"
529f36ae3217 added: ca parents: 1171 diff changeset	359	self checkImageForStyle:#cross
529f36ae3217 added: ca parents: 1171 diff changeset	360	self checkImageForStyle:#fatcross
529f36ae3217 added: ca parents: 1171 diff changeset	361	self checkImageForStyle:#borderedCross
529f36ae3217 added: ca parents: 1171 diff changeset	362	self checkImageForStyle:#borderedFatcross
529f36ae3217 added: ca parents: 1171 diff changeset	363	"
529f36ae3217 added: ca parents: 1171 diff changeset	364
529f36ae3217 added: ca parents: 1171 diff changeset	365	"Modified: 7.3.1997 / 21:15:13 / cg"
529f36ae3217 added: ca parents: 1171 diff changeset	366	!
529f36ae3217 added: ca parents: 1171 diff changeset	367
128 06a050529335 . claus parents: 127 diff changeset	368	updateStyleCache
440 2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 375 diff changeset	369	"extract values from the styleSheet and cache them in class variables"
2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 375 diff changeset	370
1355 6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	371	<resource: #style (#'checkToggle.checkColor'
1660 7cf3496cc1de fixed styleSheet keys. Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	372	#'checkToggle.backgroundColor' #'checkToggle.foregroundColor'
7cf3496cc1de fixed styleSheet keys. Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	373	#'checkToggle.activeBackgroundColor' #'checkToggle.activeForegroundColor'
7cf3496cc1de fixed styleSheet keys. Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	374	#'checkToggle.activeLevel' #'checkToggle.passiveLevel'
7cf3496cc1de fixed styleSheet keys. Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	375	#'checkToggle.activeImage' #'checkToggle.passiveImage'
1355 6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	376	#'checkToggle.borderWidth'
6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	377	#'checkToggle.bitmapFile'
6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	378	#'checkToggle.labelOverMargin'
6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	379	#'checkToggle.style')>
440 2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 375 diff changeset	380
1809 111f603c0a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 1660 diff changeset	381	\|checkFileName checkStyle\|
0 e6a541c1c0eb Initial revision claus parents: diff changeset	382
1474 e75ddabb921b take smaller DefaultCheckForm for os2 style tz parents: 1469 diff changeset	383	DefaultCheckColor := StyleSheet colorAt:'checkToggle.checkColor'.
e75ddabb921b take smaller DefaultCheckForm for os2 style tz parents: 1469 diff changeset	384	DefaultFGColor := StyleSheet colorAt:'checkToggle.foregroundColor'.
e75ddabb921b take smaller DefaultCheckForm for os2 style tz parents: 1469 diff changeset	385	DefaultBGColor := StyleSheet colorAt:'checkToggle.backgroundColor'.
1355 6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	386	DefaultActiveFGColor := StyleSheet colorAt:'checkToggle.activeForegroundColor'.
6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	387	DefaultActiveBGColor := StyleSheet colorAt:'checkToggle.activeBackgroundColor'.
1474 e75ddabb921b take smaller DefaultCheckForm for os2 style tz parents: 1469 diff changeset	388	DefaultActiveLevel := StyleSheet at:'checkToggle.activeLevel'.
e75ddabb921b take smaller DefaultCheckForm for os2 style tz parents: 1469 diff changeset	389	DefaultPassiveLevel := StyleSheet at:'checkToggle.passiveLevel'.
e75ddabb921b take smaller DefaultCheckForm for os2 style tz parents: 1469 diff changeset	390	DefaultBorderWidth := StyleSheet at:'checkToggle.borderWidth'.
e75ddabb921b take smaller DefaultCheckForm for os2 style tz parents: 1469 diff changeset	391	LabelOverMargin := StyleSheet at:'checkToggle.labelOverMargin' default:false.
130 338e856bddc9 . claus parents: 128 diff changeset	392
136 80d2240b2cdc . claus parents: 133 diff changeset	393	DefaultCheckForm := nil.
1355 6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	394	checkFileName := StyleSheet at:'checkToggle.bitmapFile' default:'CheckOn.xbm'.
128 06a050529335 . claus parents: 127 diff changeset	395	checkFileName notNil ifTrue:[
899 aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 836 diff changeset	396	DefaultCheckForm := Image fromFile:checkFileName
aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 836 diff changeset	397	resolution:100
aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 836 diff changeset	398	on:Display.
aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 836 diff changeset	399	DefaultCheckForm isNil ifTrue:[
aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 836 diff changeset	400	DefaultCheckForm := Image fromFile:'bitmaps/' , checkFileName
aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 836 diff changeset	401	resolution:100
aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 836 diff changeset	402	on:Display.
aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 836 diff changeset	403	]
130 338e856bddc9 . claus parents: 128 diff changeset	404	].
338e856bddc9 . claus parents: 128 diff changeset	405	DefaultCheckForm isNil ifTrue:[
1355 6725ab9cc6f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	406	checkStyle := StyleSheet at:'checkToggle.style' default:#check.
1236 529f36ae3217 added: ca parents: 1171 diff changeset	407	DefaultCheckForm := self checkImageForStyle:checkStyle
1474 e75ddabb921b take smaller DefaultCheckForm for os2 style tz parents: 1469 diff changeset	408	].
e75ddabb921b take smaller DefaultCheckForm for os2 style tz parents: 1469 diff changeset	409	StyleSheet name == #os2 ifTrue: [
e75ddabb921b take smaller DefaultCheckForm for os2 style tz parents: 1469 diff changeset	410	DefaultCheckForm := DefaultCheckForm subImageIn: (0@0 extent: 15@15)
e75ddabb921b take smaller DefaultCheckForm for os2 style tz parents: 1469 diff changeset	411	].
440 2beb33cb0146 added style resource directive Claus Gittinger <cg@exept.de> parents: 375 diff changeset	412
1528 02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	413	DefaultActiveImage := StyleSheet at:'checkToggle.activeImage'.
02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	414	DefaultPassiveImage := StyleSheet at:'checkToggle.passiveImage'.
02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	415
1001 eb7a8b2f4347 checkin from browser ca parents: 967 diff changeset	416	"
eb7a8b2f4347 checkin from browser ca parents: 967 diff changeset	417	self updateStyleCache
eb7a8b2f4347 checkin from browser ca parents: 967 diff changeset	418	"
1123 9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	419
1660 7cf3496cc1de fixed styleSheet keys. Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	420	"Modified: / 6.9.1998 / 21:24:48 / cg"
0 e6a541c1c0eb Initial revision claus parents: diff changeset	421	! !
e6a541c1c0eb Initial revision claus parents: diff changeset	422
1469 d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	423	!CheckToggle methodsFor:'event handling'!
d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	424
d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	425	sizeChanged:how
d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	426
d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	427	width := self preferredExtent x.
d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	428	height := self preferredExtent y.
d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	429	! !
d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	430
0 e6a541c1c0eb Initial revision claus parents: diff changeset	431	!CheckToggle methodsFor:'initialization'!
e6a541c1c0eb Initial revision claus parents: diff changeset	432
18 66bf62e27141 * empty log message * claus parents: 4 diff changeset	433	initStyle
967 6739eb5496da commentary Claus Gittinger <cg@exept.de> parents: 899 diff changeset	434	"setup viewStyle specifics"
6739eb5496da commentary Claus Gittinger <cg@exept.de> parents: 899 diff changeset	435
18 66bf62e27141 * empty log message * claus parents: 4 diff changeset	436	super initStyle.
66bf62e27141 * empty log message * claus parents: 4 diff changeset	437
128 06a050529335 . claus parents: 127 diff changeset	438	onLevel := offLevel.
130 338e856bddc9 . claus parents: 128 diff changeset	439	DefaultActiveLevel notNil ifTrue:[onLevel := DefaultActiveLevel].
136 80d2240b2cdc . claus parents: 133 diff changeset	440	DefaultPassiveLevel notNil ifTrue:[offLevel := DefaultPassiveLevel].
130 338e856bddc9 . claus parents: 128 diff changeset	441
1317 e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1280 diff changeset	442	activeLogo := DefaultCheckForm onDevice:device.
128 06a050529335 . claus parents: 127 diff changeset	443	passiveLogo := nil.
06a050529335 . claus parents: 127 diff changeset	444
1528 02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	445	DefaultActiveImage notNil ifTrue:[
02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	446	activeLogo := DefaultActiveImage onDevice:device.
02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	447	].
02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	448	DefaultPassiveImage notNil ifTrue:[
02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	449	passiveLogo := DefaultPassiveImage onDevice:device.
02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	450	].
02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	451
1317 e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1280 diff changeset	452	DefaultActiveFGColor notNil ifTrue:[
1528 02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	453	self activeForegroundColor:DefaultActiveFGColor
1317 e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1280 diff changeset	454	].
e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1280 diff changeset	455	DefaultCheckColor notNil ifTrue:[
1528 02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	456	self activeForegroundColor:DefaultCheckColor
1317 e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1280 diff changeset	457	].
e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1280 diff changeset	458	DefaultActiveBGColor notNil ifTrue:[
1528 02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	459	self activeBackgroundColor:DefaultActiveBGColor
1317 e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1280 diff changeset	460	].
e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1280 diff changeset	461	DefaultFGColor notNil ifTrue:[
1528 02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	462	self foregroundColor:DefaultFGColor
1317 e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1280 diff changeset	463	].
e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1280 diff changeset	464	DefaultBGColor notNil ifTrue:[
1528 02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	465	self backgroundColor:DefaultBGColor
1317 e7b4c929b229 filename stuff Claus Gittinger <cg@exept.de> parents: 1280 diff changeset	466	].
130 338e856bddc9 . claus parents: 128 diff changeset	467
128 06a050529335 . claus parents: 127 diff changeset	468	showLamp := false.
130 338e856bddc9 . claus parents: 128 diff changeset	469
338e856bddc9 . claus parents: 128 diff changeset	470	DefaultBorderWidth notNil ifTrue:[self borderWidth:DefaultBorderWidth].
338e856bddc9 . claus parents: 128 diff changeset	471
338e856bddc9 . claus parents: 128 diff changeset	472	offLevel ~~ level ifTrue:[self level:offLevel].
967 6739eb5496da commentary Claus Gittinger <cg@exept.de> parents: 899 diff changeset	473
1528 02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	474	"Modified: / 19.5.1998 / 15:50:29 / cg"
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	475	!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	476
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	477	initialize
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	478	super initialize.
1528 02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	479	passiveLogo := DefaultPassiveImage.
1469 d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	480	self label:activeLogo. "/ to let me compute some defaultExtent
1528 02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	481
02fc96381147 allow activeImage/passiveImage to be specified Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	482	"Modified: / 19.5.1998 / 15:51:49 / cg"
0 e6a541c1c0eb Initial revision claus parents: diff changeset	483	! !
e6a541c1c0eb Initial revision claus parents: diff changeset	484
1123 9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	485	!CheckToggle methodsFor:'queries'!
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	486
1469 d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	487	label: something
d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	488
d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	489	something isString ifFalse: [super label: something]
d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	490	!
d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	491
1123 9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	492	preferredExtent
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	493	"/ If I have an explicit preferredExtent ..
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	494
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	495	\|pref\|
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	496
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	497	preferredExtent notNil ifTrue:[
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	498	^ preferredExtent
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	499	].
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	500
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	501	pref := super preferredExtent.
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	502	LabelOverMargin ifTrue:[
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	503	pref := pref - (margin*2)
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	504	].
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	505
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	506	^ pref
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	507
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	508	"Modified: 7.3.1997 / 17:52:53 / cg"
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	509	! !
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	510
0 e6a541c1c0eb Initial revision claus parents: diff changeset	511	!CheckToggle methodsFor:'redrawing'!
e6a541c1c0eb Initial revision claus parents: diff changeset	512
133 e58c7c979f33 . claus parents: 132 diff changeset	513	drawWith:fg and:bg
1469 d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	514
265 76336839475b * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	515	controller pressed ifTrue:[
1169 982c3fd58d67 better highlighting on enter/leave Claus Gittinger <cg@exept.de> parents: 1154 diff changeset	516	logo := activeLogo.
0 e6a541c1c0eb Initial revision claus parents: diff changeset	517	] ifFalse:[
1169 982c3fd58d67 better highlighting on enter/leave Claus Gittinger <cg@exept.de> parents: 1154 diff changeset	518	logo := passiveLogo.
133 e58c7c979f33 . claus parents: 132 diff changeset	519	].
1171 71f7a035396f checkin from browser Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	520
71f7a035396f checkin from browser Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	521	(controller entered
71f7a035396f checkin from browser Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	522	and:[enteredBgColor notNil]) ifTrue:[
1169 982c3fd58d67 better highlighting on enter/leave Claus Gittinger <cg@exept.de> parents: 1154 diff changeset	523	super drawWith:fg and:enteredBgColor
982c3fd58d67 better highlighting on enter/leave Claus Gittinger <cg@exept.de> parents: 1154 diff changeset	524	] ifFalse:[
1469 d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	525	super drawWith:fg and:bgColor
1169 982c3fd58d67 better highlighting on enter/leave Claus Gittinger <cg@exept.de> parents: 1154 diff changeset	526	]
164 5ab02ff0d9ae . Claus Gittinger <cg@exept.de> parents: 147 diff changeset	527
5ab02ff0d9ae . Claus Gittinger <cg@exept.de> parents: 147 diff changeset	528	"Modified: 22.9.1995 / 15:45:02 / claus"
1171 71f7a035396f checkin from browser Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	529	"Modified: 1.4.1997 / 13:35:48 / cg"
1123 9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	530	!
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	531
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	532	edgeDrawn:which
1154 bb9a71579a88 commentary Claus Gittinger <cg@exept.de> parents: 1123 diff changeset	533	"redraw my logo if it overlaps the edge"
bb9a71579a88 commentary Claus Gittinger <cg@exept.de> parents: 1123 diff changeset	534
1123 9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	535	LabelOverMargin ifTrue:[
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	536	(logo notNil and:[logo isImageOrForm]) ifTrue:[
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	537	self paint:fgColor on:bgColor.
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	538	self clippingRectangle:nil.
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	539	self displayForm:logo x:labelOriginX y:labelOriginY.
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	540	self clippingRectangle:innerClipRect
9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	541	]
1469 d4f108e1a667 revised for the docu tz parents: 1382 diff changeset	542	].
1123 9d691272a9ec nice check-mark on iris. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	543
1154 bb9a71579a88 commentary Claus Gittinger <cg@exept.de> parents: 1123 diff changeset	544	"Modified: 22.3.1997 / 18:23:50 / cg"
0 e6a541c1c0eb Initial revision claus parents: diff changeset	545	! !
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	546
899 aa84d3d39d94 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 836 diff changeset	547	!CheckToggle class methodsFor:'documentation'!
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	548
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	549	version
1809 111f603c0a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 1660 diff changeset	550	^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.45 1999-03-19 21:12:41 cg Exp $'
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	551	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 19 Mar 1999 22:13:33 +0100
changeset 1809	111f603c0a1c
parent 1660	7cf3496cc1de
child 1852	0acc83cddbc8
permissions	-rw-r--r--