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

author	Claus Gittinger <cg@exept.de>
	Sat, 30 Sep 2000 17:34:49 +0200
changeset 2292	1ba9281c38ee
parent 2077	376bcf52c98b
child 2780	ea6d30fb08a1
permissions	-rw-r--r--