hg/stx-libwidg: Toggle.st@b6d4c737970f (annotated)

0 e6a541c1c0eb Initial revision claus parents: diff changeset	1	"
5 7b4fb1b170e5 claus parents: 3 diff changeset	2	COPYRIGHT (c) 1989 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
2504 f12dab112227 use new #valueWithOptionalArg Claus Gittinger <cg@exept.de> parents: 2167 diff changeset	13	"{ Package: 'stx:libwidg' }"
f12dab112227 use new #valueWithOptionalArg Claus Gittinger <cg@exept.de> parents: 2167 diff changeset	14
0 e6a541c1c0eb Initial revision claus parents: diff changeset	15	Button subclass:#Toggle
377 ee53da05e265 image example ca parents: 205 diff changeset	16	instanceVariableNames:'showLamp lampColor lampWidth lampHeight'
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	17	classVariableNames:'DefaultShowLamp DefaultLampColor LampInset'
377 ee53da05e265 image example ca parents: 205 diff changeset	18	poolDictionaries:''
ee53da05e265 image example ca parents: 205 diff changeset	19	category:'Views-Interactors'
0 e6a541c1c0eb Initial revision claus parents: diff changeset	20	!
e6a541c1c0eb Initial revision claus parents: diff changeset	21
22 ac872628ef2d * empty log message * claus parents: 7 diff changeset	22	!Toggle class methodsFor:'documentation'!
ac872628ef2d * empty log message * claus parents: 7 diff changeset	23
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	24	copyright
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	25	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	26	COPYRIGHT (c) 1989 by Claus Gittinger
59 450ce95a72a4 * empty log message * claus parents: 38 diff changeset	27	All Rights Reserved
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	28
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	29	This software is furnished under a license and may be used
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	30	only in accordance with the terms of that license and with the
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	31	inclusion of the above copyright notice. This software may not
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	32	be provided or otherwise made available to, or used by, any
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	33	other person. No title to or ownership of the software is
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	34	hereby transferred.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	35	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	36	!
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	37
22 ac872628ef2d * empty log message * claus parents: 7 diff changeset	38	documentation
ac872628ef2d * empty log message * claus parents: 7 diff changeset	39	"
128 06a050529335 . claus parents: 121 diff changeset	40	this button changes state whenever clicked upon and stays down (pressed)
06a050529335 . claus parents: 121 diff changeset	41	until clicked again. All the main action is in Button and the controller
06a050529335 . claus parents: 121 diff changeset	42	(ToggleController).
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	43
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	44	The toggle may optionally display a little kind-of-lamp (or LED), which
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	45	is turned on when the toggle is pressed. (i.e. as in the Interviews toolkit).
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	46
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	47	whenever the Toggle changes its change, it will evaluate one of
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	48	pressAction or releaseAction.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	49
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	50	For ST-80 compatibility, if the model is nonNil, this one gets a new
128 06a050529335 . claus parents: 121 diff changeset	51	value and is sent a changed message. Also, the toggle will follow changes
06a050529335 . claus parents: 121 diff changeset	52	in the model and update its display as appropriate.
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	53	If nonNil, the model is supposed to be a ValueHolder holding true or false.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	54
4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	55
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 441 diff changeset	56	[instance variables:]
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 441 diff changeset	57	showLamp <Boolean> true if a lamp should be displayed
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 441 diff changeset	58	lampColor <Color> color of the lamp
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 441 diff changeset	59	lampWidth <Integer> width of the lamp in pixel
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 441 diff changeset	60	lampHeight <Integer> height of the lamp in pixel
119 59758ff5b841 . claus parents: 105 diff changeset	61
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 441 diff changeset	62	[styleSheet values:]
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 441 diff changeset	63	toggleShowLamp <Boolean> if true, a lamp is shown; default:false.
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 441 diff changeset	64	toggleLampColor <Color> lamps color; default:yellow.
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 441 diff changeset	65
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 441 diff changeset	66	[author:]
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 441 diff changeset	67	Claus Gittinger
609 734f451e9ad0 checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	68
734f451e9ad0 checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	69	[see also:]
734f451e9ad0 checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	70	Button RadioButton
734f451e9ad0 checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	71	( introduction to view programming :html: programming/viewintro.html#INTER_TOGGLES )
734f451e9ad0 checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	72
734f451e9ad0 checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	73
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	74	"
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	75	!
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	76
63 f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	77	examples
f4eaf04d1eaf * empty log message * claus parents: 59 diff changeset	78	"
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	79	Examples:
128 06a050529335 . claus parents: 121 diff changeset	80	Try all, to see what is possible.
377 ee53da05e265 image example ca parents: 205 diff changeset	81	(notice, that these examples are meant to show what can be done;
ee53da05e265 image example ca parents: 205 diff changeset	82	usually, all style-related stuff is preinitialized - you should not
ee53da05e265 image example ca parents: 205 diff changeset	83	normally play around with onLevel, offLevel, showLamp: etc)
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	84
128 06a050529335 . claus parents: 121 diff changeset	85
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	86	simple:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	87	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	88	\|v t\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	89
377 ee53da05e265 image example ca parents: 205 diff changeset	90	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	91	t := Toggle label:'press here' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	92	t origin:10 @ 10.
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	93	t action:[:value \| Transcript show:'toggle state: '; showCR:value.].
377 ee53da05e265 image example ca parents: 205 diff changeset	94	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	95	[exEnd]
119 59758ff5b841 . claus parents: 105 diff changeset	96
128 06a050529335 . claus parents: 121 diff changeset	97
119 59758ff5b841 . claus parents: 105 diff changeset	98	separate press/release actions:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	99	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	100	\|v t\|
119 59758ff5b841 . claus parents: 105 diff changeset	101
377 ee53da05e265 image example ca parents: 205 diff changeset	102	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	103	t := Toggle label:'press here' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	104	t origin:10 @ 10.
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	105	t pressAction:[Transcript showCR:'toggle pressed'.].
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	106	t releaseAction:[Transcript showCR:'toggle released'.].
377 ee53da05e265 image example ca parents: 205 diff changeset	107	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	108	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	109
128 06a050529335 . claus parents: 121 diff changeset	110
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	111	changing logo:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	112	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	113	\|v t\|
ee53da05e265 image example ca parents: 205 diff changeset	114
ee53da05e265 image example ca parents: 205 diff changeset	115	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	116	t := Toggle label:'eat me' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	117	t origin:10 @ 10.
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	118	t pressAction:[Transcript showCR:'smaller'. t label:'drink me'].
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	119	t releaseAction:[Transcript showCR:'larger'. t label:'eat me'].
377 ee53da05e265 image example ca parents: 205 diff changeset	120	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	121	[exEnd]
377 ee53da05e265 image example ca parents: 205 diff changeset	122
ee53da05e265 image example ca parents: 205 diff changeset	123
378 056af35f401d inline-image example ca parents: 377 diff changeset	124	changing logo:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	125	[exBegin]
378 056af35f401d inline-image example ca parents: 377 diff changeset	126	\|v t\|
056af35f401d inline-image example ca parents: 377 diff changeset	127
056af35f401d inline-image example ca parents: 377 diff changeset	128	v := StandardSystemView new extent:200@200.
056af35f401d inline-image example ca parents: 377 diff changeset	129	t := Toggle in:v.
056af35f401d inline-image example ca parents: 377 diff changeset	130	t logo:(Form width:16 height:14 fromArray:#(
056af35f401d inline-image example ca parents: 377 diff changeset	131	2r00000000 2r00000000
056af35f401d inline-image example ca parents: 377 diff changeset	132	2r00000000 2r00000000
056af35f401d inline-image example ca parents: 377 diff changeset	133	2r00000000 2r00000000
056af35f401d inline-image example ca parents: 377 diff changeset	134	2r00000111 2r11100000
056af35f401d inline-image example ca parents: 377 diff changeset	135	2r00001100 2r00000000
056af35f401d inline-image example ca parents: 377 diff changeset	136	2r00011000 2r00000000
056af35f401d inline-image example ca parents: 377 diff changeset	137	2r00011000 2r00000000
056af35f401d inline-image example ca parents: 377 diff changeset	138	2r00011000 2r00000000
056af35f401d inline-image example ca parents: 377 diff changeset	139	2r00011000 2r00000000
056af35f401d inline-image example ca parents: 377 diff changeset	140	2r00001100 2r00000000
056af35f401d inline-image example ca parents: 377 diff changeset	141	2r00000111 2r11100000
056af35f401d inline-image example ca parents: 377 diff changeset	142	2r00000000 2r00000000
056af35f401d inline-image example ca parents: 377 diff changeset	143	2r00000000 2r00000000
056af35f401d inline-image example ca parents: 377 diff changeset	144	2r00000000 2r00000000)).
056af35f401d inline-image example ca parents: 377 diff changeset	145	t origin:10 @ 10.
056af35f401d inline-image example ca parents: 377 diff changeset	146	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	147	[exEnd]
378 056af35f401d inline-image example ca parents: 377 diff changeset	148
056af35f401d inline-image example ca parents: 377 diff changeset	149
377 ee53da05e265 image example ca parents: 205 diff changeset	150	uhh - changing logos and getting bg-colors from the image:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	151	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	152	\|v t i\|
ee53da05e265 image example ca parents: 205 diff changeset	153
ee53da05e265 image example ca parents: 205 diff changeset	154	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	155	t := Toggle in:v.
ee53da05e265 image example ca parents: 205 diff changeset	156	t origin:10 @ 10.
ee53da05e265 image example ca parents: 205 diff changeset	157	t showLamp:false.
ee53da05e265 image example ca parents: 205 diff changeset	158	t activeLogo:(i := Image fromFile:'red-ball.gif').
ee53da05e265 image example ca parents: 205 diff changeset	159	t passiveLogo:(Image fromFile:'green-ball.gif').
ee53da05e265 image example ca parents: 205 diff changeset	160	t backgroundColor:(i at:0@0).
ee53da05e265 image example ca parents: 205 diff changeset	161	t enteredBackgroundColor:(t backgroundColor).
ee53da05e265 image example ca parents: 205 diff changeset	162	t activeBackgroundColor:(t backgroundColor).
ee53da05e265 image example ca parents: 205 diff changeset	163	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	164	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	165
128 06a050529335 . claus parents: 121 diff changeset	166
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	167	changing logo and freezing size (looks better):
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	168	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	169	\|v t\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	170
377 ee53da05e265 image example ca parents: 205 diff changeset	171	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	172	'create with large logo; freeze; change to small logo'.
ee53da05e265 image example ca parents: 205 diff changeset	173	t := Toggle label:'drink me' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	174	t sizeFixed:true.
ee53da05e265 image example ca parents: 205 diff changeset	175	t label:'eat me'.
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	176
377 ee53da05e265 image example ca parents: 205 diff changeset	177	t origin:10 @ 10.
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	178	t pressAction:[Transcript showCR:'smaller'. t label:'drink me'].
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	179	t releaseAction:[Transcript showCR:'larger'. t label:'eat me'].
377 ee53da05e265 image example ca parents: 205 diff changeset	180	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	181	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	182
128 06a050529335 . claus parents: 121 diff changeset	183
119 59758ff5b841 . claus parents: 105 diff changeset	184	adding a lamp (in some view styles, this is the default anyway):
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	185	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	186	\|v t\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	187
377 ee53da05e265 image example ca parents: 205 diff changeset	188	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	189	t := Toggle label:'off' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	190	t showLamp:true.
ee53da05e265 image example ca parents: 205 diff changeset	191	t origin:10 @ 10.
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	192	t pressAction:[Transcript showCR:'on'. t label:'on'].
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	193	t releaseAction:[Transcript showCR:'off'. t label:'off'].
377 ee53da05e265 image example ca parents: 205 diff changeset	194	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	195	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	196
128 06a050529335 . claus parents: 121 diff changeset	197
119 59758ff5b841 . claus parents: 105 diff changeset	198	changing lamps color:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	199	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	200	\|v t\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	201
377 ee53da05e265 image example ca parents: 205 diff changeset	202	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	203	t := Toggle label:'off' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	204	t showLamp:true.
ee53da05e265 image example ca parents: 205 diff changeset	205	t lampColor:Color red.
ee53da05e265 image example ca parents: 205 diff changeset	206	t origin:10 @ 10.
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	207	t pressAction:[Transcript showCR:'on'. t label:'on'.].
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	208	t releaseAction:[Transcript showCR:'off'. t label:'off'.].
377 ee53da05e265 image example ca parents: 205 diff changeset	209	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	210	[exEnd]
119 59758ff5b841 . claus parents: 105 diff changeset	211
128 06a050529335 . claus parents: 121 diff changeset	212
119 59758ff5b841 . claus parents: 105 diff changeset	213	lamp only - no '3D going-in' (this is the default with IRIS style)
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	214	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	215	\|v t\|
119 59758ff5b841 . claus parents: 105 diff changeset	216
377 ee53da05e265 image example ca parents: 205 diff changeset	217	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	218	t := Toggle label:'off' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	219	t showLamp:true.
ee53da05e265 image example ca parents: 205 diff changeset	220	t onLevel:(t offLevel).
ee53da05e265 image example ca parents: 205 diff changeset	221	t origin:10 @ 10.
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	222	t pressAction:[Transcript showCR:'on'. t label:'on'].
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	223	t releaseAction:[Transcript showCR:'off'. t label:'off'].
377 ee53da05e265 image example ca parents: 205 diff changeset	224	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	225	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	226
128 06a050529335 . claus parents: 121 diff changeset	227
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	228	lamp and freezing size of the label (looks better):
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	229	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	230	\|v t\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	231
377 ee53da05e265 image example ca parents: 205 diff changeset	232	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	233	t := Toggle label:'off' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	234	t showLamp:true.
ee53da05e265 image example ca parents: 205 diff changeset	235	t sizeFixed:true.
ee53da05e265 image example ca parents: 205 diff changeset	236	t origin:10 @ 10.
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	237	t pressAction:[Transcript showCR:'on'. t label:'on'].
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	238	t releaseAction:[Transcript showCR:'off'. t label:'off'].
377 ee53da05e265 image example ca parents: 205 diff changeset	239	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	240	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	241
128 06a050529335 . claus parents: 121 diff changeset	242
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	243	another variation:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	244	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	245	\|v t\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	246
377 ee53da05e265 image example ca parents: 205 diff changeset	247	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	248	t := Toggle label:'off' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	249	t showLamp:true.
ee53da05e265 image example ca parents: 205 diff changeset	250	t sizeFixed:true.
ee53da05e265 image example ca parents: 205 diff changeset	251	t onLevel:(t offLevel).
ee53da05e265 image example ca parents: 205 diff changeset	252	t origin:10 @ 10.
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	253	t pressAction:[Transcript showCR:'on'. t label:'on'].
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	254	t releaseAction:[Transcript showCR:'off'. t label:'off'].
377 ee53da05e265 image example ca parents: 205 diff changeset	255	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	256	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	257
128 06a050529335 . claus parents: 121 diff changeset	258
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	259	and another one:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	260	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	261	\|v t\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	262
377 ee53da05e265 image example ca parents: 205 diff changeset	263	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	264	t := Toggle label:'off' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	265	t showLamp:true.
ee53da05e265 image example ca parents: 205 diff changeset	266	t sizeFixed:true.
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	267
377 ee53da05e265 image example ca parents: 205 diff changeset	268	t showLamp:false.
ee53da05e265 image example ca parents: 205 diff changeset	269	t offLevel:3.
ee53da05e265 image example ca parents: 205 diff changeset	270	t onLevel:3.
ee53da05e265 image example ca parents: 205 diff changeset	271	t origin:10 @ 10.
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	272	t pressAction:[Transcript showCR:'on'. t showLamp:true. t label:'on'].
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	273	t releaseAction:[Transcript showCR:'off'. t showLamp:false. t label:'off'].
377 ee53da05e265 image example ca parents: 205 diff changeset	274	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	275	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	276
128 06a050529335 . claus parents: 121 diff changeset	277
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	278	another font:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	279	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	280	\|v t\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	281
377 ee53da05e265 image example ca parents: 205 diff changeset	282	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	283	t := Toggle label:'off' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	284	t font:(Font family:'times' face:'bold' style:'roman' size:24).
ee53da05e265 image example ca parents: 205 diff changeset	285	t label:'hello'.
ee53da05e265 image example ca parents: 205 diff changeset	286	t origin:10 @ 10.
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	287	t pressAction:[Transcript showCR:'on'.].
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	288	t releaseAction:[Transcript showCR:'off'.].
377 ee53da05e265 image example ca parents: 205 diff changeset	289	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	290	[exEnd]
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	291
128 06a050529335 . claus parents: 121 diff changeset	292
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	293	another font (no, I dont know what it means :-):
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	294	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	295	\|v t\|
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	296
377 ee53da05e265 image example ca parents: 205 diff changeset	297	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	298	t := Toggle label:'off' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	299	t font:(Font family:'k14' face:nil style:nil size:nil).
ee53da05e265 image example ca parents: 205 diff changeset	300	t label:(TwoByteString with:(Character value:16r3021)).
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	301
377 ee53da05e265 image example ca parents: 205 diff changeset	302	t origin:10 @ 10.
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	303	t pressAction:[Transcript showCR:'on'.].
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	304	t releaseAction:[Transcript showCR:'off'.].
377 ee53da05e265 image example ca parents: 205 diff changeset	305	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	306	[exEnd]
119 59758ff5b841 . claus parents: 105 diff changeset	307
128 06a050529335 . claus parents: 121 diff changeset	308
06a050529335 . claus parents: 121 diff changeset	309	using a model (look at 'value' in the inspector):
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	310	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	311	\|m v t\|
119 59758ff5b841 . claus parents: 105 diff changeset	312
377 ee53da05e265 image example ca parents: 205 diff changeset	313	m := ValueHolder newBoolean.
ee53da05e265 image example ca parents: 205 diff changeset	314	m inspect.
119 59758ff5b841 . claus parents: 105 diff changeset	315
377 ee53da05e265 image example ca parents: 205 diff changeset	316	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	317	t := Toggle label:'press here to change value' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	318	t origin:10 @ 10.
ee53da05e265 image example ca parents: 205 diff changeset	319	t model:m.
ee53da05e265 image example ca parents: 205 diff changeset	320	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	321	[exEnd]
119 59758ff5b841 . claus parents: 105 diff changeset	322
128 06a050529335 . claus parents: 121 diff changeset	323
119 59758ff5b841 . claus parents: 105 diff changeset	324	using a model with different changeSelector:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	325	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	326	\|m v t\|
119 59758ff5b841 . claus parents: 105 diff changeset	327
377 ee53da05e265 image example ca parents: 205 diff changeset	328	m := Plug new.
655 acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	329	m respondTo:#setValue1: with:[:value \| Transcript show:'value 1 changed to: '; showCR:value].
acad3ef3a46c showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 609 diff changeset	330	m respondTo:#setValue2: with:[:value \| Transcript show:'value 2 changed to: '; showCR:value].
119 59758ff5b841 . claus parents: 105 diff changeset	331
377 ee53da05e265 image example ca parents: 205 diff changeset	332	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	333	t := Toggle label:'press here for value1' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	334	t origin:10 @ 10.
ee53da05e265 image example ca parents: 205 diff changeset	335	t model:m; change:#setValue1:.
ee53da05e265 image example ca parents: 205 diff changeset	336	t := Toggle label:'press here for value2' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	337	t origin:10 @ 50.
ee53da05e265 image example ca parents: 205 diff changeset	338	t model:m; change:#setValue2:.
ee53da05e265 image example ca parents: 205 diff changeset	339	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	340	[exEnd]
128 06a050529335 . claus parents: 121 diff changeset	341
06a050529335 . claus parents: 121 diff changeset	342
06a050529335 . claus parents: 121 diff changeset	343	two toggles on the same model:
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	344	[exBegin]
377 ee53da05e265 image example ca parents: 205 diff changeset	345	\|m v t\|
128 06a050529335 . claus parents: 121 diff changeset	346
377 ee53da05e265 image example ca parents: 205 diff changeset	347	m := true asValue.
128 06a050529335 . claus parents: 121 diff changeset	348
377 ee53da05e265 image example ca parents: 205 diff changeset	349	v := StandardSystemView new extent:200@200.
ee53da05e265 image example ca parents: 205 diff changeset	350	t := Toggle label:'press here' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	351	t origin:10 @ 10.
ee53da05e265 image example ca parents: 205 diff changeset	352	t model:m.
128 06a050529335 . claus parents: 121 diff changeset	353
377 ee53da05e265 image example ca parents: 205 diff changeset	354	t := Toggle label:'or here' in:v.
ee53da05e265 image example ca parents: 205 diff changeset	355	t origin:10 @ 50.
ee53da05e265 image example ca parents: 205 diff changeset	356	t model:m.
ee53da05e265 image example ca parents: 205 diff changeset	357	v open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	358	[exEnd]
22 ac872628ef2d * empty log message * claus parents: 7 diff changeset	359	"
ac872628ef2d * empty log message * claus parents: 7 diff changeset	360	! !
ac872628ef2d * empty log message * claus parents: 7 diff changeset	361
119 59758ff5b841 . claus parents: 105 diff changeset	362	!Toggle class methodsFor:'defaults'!
59758ff5b841 . claus parents: 105 diff changeset	363
59758ff5b841 . claus parents: 105 diff changeset	364	updateStyleCache
441 e170bca66a78 added style resource directive Claus Gittinger <cg@exept.de> parents: 378 diff changeset	365	"extract values from the styleSheet and cache them in class variables"
e170bca66a78 added style resource directive Claus Gittinger <cg@exept.de> parents: 378 diff changeset	366
1353 5dac6aa6ac96 * empty log message * Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	367	<resource: #style (#'toggle.showLamp'
5dac6aa6ac96 * empty log message * Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	368	#'toggle.lampColor')>
441 e170bca66a78 added style resource directive Claus Gittinger <cg@exept.de> parents: 378 diff changeset	369
1873 6a4a05b093bc checkin from browser Claus Gittinger <cg@exept.de> parents: 1553 diff changeset	370	DefaultShowLamp := StyleSheet at:#'toggle.showLamp' default:false.
6a4a05b093bc checkin from browser Claus Gittinger <cg@exept.de> parents: 1553 diff changeset	371	DefaultLampColor := StyleSheet colorAt:#'toggle.lampColor' default:Color yellow.
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	372	LampInset := 1 "2".
441 e170bca66a78 added style resource directive Claus Gittinger <cg@exept.de> parents: 378 diff changeset	373
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	374	"Modified: / 3.11.1997 / 11:42:19 / cg"
119 59758ff5b841 . claus parents: 105 diff changeset	375	! !
59758ff5b841 . claus parents: 105 diff changeset	376
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	377	!Toggle methodsFor:'accessing-look'!
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	378
1044 fb7a15fa51dc fetch models value when model changes ca parents: 1020 diff changeset	379	lampColor
fb7a15fa51dc fetch models value when model changes ca parents: 1020 diff changeset	380	"returns the color of the toggle-lamp"
fb7a15fa51dc fetch models value when model changes ca parents: 1020 diff changeset	381
fb7a15fa51dc fetch models value when model changes ca parents: 1020 diff changeset	382	^ lampColor
fb7a15fa51dc fetch models value when model changes ca parents: 1020 diff changeset	383	!
fb7a15fa51dc fetch models value when model changes ca parents: 1020 diff changeset	384
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	385	lampColor:aColor
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	386	"change the color of the toggle-lamp"
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	387
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	388	lampColor := aColor.
993 51cce445b5d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 966 diff changeset	389	shown ifTrue:[
51cce445b5d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 966 diff changeset	390	(showLamp and:[controller pressed]) ifTrue:[
1553 a89b36bd0fd7 redrawNow, when lampColor changes. Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	391	self invalidateRepairNow:true
993 51cce445b5d5 * empty log message * Claus Gittinger <cg@exept.de> parents: 966 diff changeset	392	]
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	393	]
711 c830bb66598b use new #invalidate instead of redraw Claus Gittinger <cg@exept.de> parents: 655 diff changeset	394
1553 a89b36bd0fd7 redrawNow, when lampColor changes. Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	395	"Modified: / 6.6.1998 / 19:32:50 / cg"
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	396	!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	397
2957 b6452e647ee1 * empty log message * werner parents: 2504 diff changeset	398	lampHeight:something
b6452e647ee1 * empty log message * werner parents: 2504 diff changeset	399	lampHeight := something.
b6452e647ee1 * empty log message * werner parents: 2504 diff changeset	400	!
b6452e647ee1 * empty log message * werner parents: 2504 diff changeset	401
b6452e647ee1 * empty log message * werner parents: 2504 diff changeset	402	lampWidth: something
b6452e647ee1 * empty log message * werner parents: 2504 diff changeset	403	lampWidth := something
b6452e647ee1 * empty log message * werner parents: 2504 diff changeset	404	!
b6452e647ee1 * empty log message * werner parents: 2504 diff changeset	405
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	406	showLamp
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	407	"return true, if I show a lamp"
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	408
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	409	^ showLamp
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	410	!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	411
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	412	showLamp:aBoolean
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	413	"enable/disable drawing of the lamp"
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	414
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	415	showLamp ~~ aBoolean ifTrue:[
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	416	showLamp := aBoolean.
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	417	self computeLabelSize.
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	418	fixSize ifFalse:[
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	419	self resize
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	420	]
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	421	]
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	422	! !
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	423
1044 fb7a15fa51dc fetch models value when model changes ca parents: 1020 diff changeset	424	!Toggle methodsFor:'accessing-mvc'!
fb7a15fa51dc fetch models value when model changes ca parents: 1020 diff changeset	425
fb7a15fa51dc fetch models value when model changes ca parents: 1020 diff changeset	426	model:aModel
fb7a15fa51dc fetch models value when model changes ca parents: 1020 diff changeset	427	super model:aModel.
1083 13e64cc1c493 fetch models value when a model is assigned; Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	428	self getValueFromModel.
1044 fb7a15fa51dc fetch models value when model changes ca parents: 1020 diff changeset	429
1083 13e64cc1c493 fetch models value when a model is assigned; Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	430	"Modified: 28.2.1997 / 19:09:58 / cg"
1044 fb7a15fa51dc fetch models value when model changes ca parents: 1020 diff changeset	431	! !
fb7a15fa51dc fetch models value when model changes ca parents: 1020 diff changeset	432
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	433	!Toggle methodsFor:'change & update'!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	434
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	435	update:something with:parameter from:changedObject
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	436	something == aspectMsg ifTrue:[
1470 01dc216e9cee revised for the docu tz parents: 1464 diff changeset	437	self getValueFromModel.
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	438	].
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	439	super update:something with:parameter from:changedObject
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	440	! !
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	441
22 ac872628ef2d * empty log message * claus parents: 7 diff changeset	442	!Toggle methodsFor:'initialization'!
ac872628ef2d * empty log message * claus parents: 7 diff changeset	443
105 3d064ba4a0cc * empty log message * claus parents: 95 diff changeset	444	defaultControllerClass
3d064ba4a0cc * empty log message * claus parents: 95 diff changeset	445	^ ToggleController
3d064ba4a0cc * empty log message * claus parents: 95 diff changeset	446	!
3d064ba4a0cc * empty log message * claus parents: 95 diff changeset	447
936 0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	448	fetchDeviceResources
0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	449	"fetch device colors, to avoid reallocation at redraw time"
0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	450
0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	451	super fetchDeviceResources.
0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	452
1987 599825bed176 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1876 diff changeset	453	lampColor notNil ifTrue:[lampColor := lampColor onDevice:device].
936 0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	454
0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	455	"Created: 13.1.1997 / 23:46:31 / cg"
0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	456	!
0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	457
22 ac872628ef2d * empty log message * claus parents: 7 diff changeset	458	initStyle
966 824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 936 diff changeset	459	"setup viewStyle specifics"
824e0ecc0e6f comments Claus Gittinger <cg@exept.de> parents: 936 diff changeset	460
1874 6ff31b38d752 added extra toggle.foreground and toggle.background styles Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	461	\|mm fg bg\|
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	462
22 ac872628ef2d * empty log message * claus parents: 7 diff changeset	463	super initStyle.
ac872628ef2d * empty log message * claus parents: 7 diff changeset	464
119 59758ff5b841 . claus parents: 105 diff changeset	465	showLamp := DefaultShowLamp.
22 ac872628ef2d * empty log message * claus parents: 7 diff changeset	466	showLamp ifTrue:[
936 0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	467	onLevel := offLevel.
22 ac872628ef2d * empty log message * claus parents: 7 diff changeset	468
936 0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	469	"dont know, if I like this ..."
0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	470	"
0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	471	activeBgColor := bgColor
0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	472	"
22 ac872628ef2d * empty log message * claus parents: 7 diff changeset	473	].
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 22 diff changeset	474
936 0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	475	lampColor := DefaultLampColor.
1873 6a4a05b093bc checkin from browser Claus Gittinger <cg@exept.de> parents: 1553 diff changeset	476	mm := StyleSheet at:#'toggle.lampWidthMM' default:1.5.
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	477	lampWidth := (device horizontalPixelPerMillimeter * mm) rounded.
1873 6a4a05b093bc checkin from browser Claus Gittinger <cg@exept.de> parents: 1553 diff changeset	478	mm := StyleSheet at:#'toggle.lampHeightMM' default:3.0.
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	479	lampHeight := (device verticalPixelPerMillimeter * mm) rounded.
936 0e8811726930 fetch device resources early Claus Gittinger <cg@exept.de> parents: 711 diff changeset	480
1876 d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	481	onLevel := styleSheet at:#'toggle.activeLevel' default:onLevel.
d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	482	offLevel := styleSheet at:#'toggle.passiveLevel' default:offLevel.
d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	483
d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	484	fg := styleSheet colorAt:#'toggle.activeForegroundColor'.
1874 6ff31b38d752 added extra toggle.foreground and toggle.background styles Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	485	fg notNil ifTrue:[
1876 d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	486	activeFgColor := fg.
d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	487	].
d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	488	bg := styleSheet colorAt:#'toggle.activeBackgroundColor'.
d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	489	bg notNil ifTrue:[
d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	490	activeBgColor := bg.
1874 6ff31b38d752 added extra toggle.foreground and toggle.background styles Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	491	].
6ff31b38d752 added extra toggle.foreground and toggle.background styles Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	492
1876 d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	493	fg := styleSheet colorAt:#'toggle.foregroundColor'.
d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	494	fg notNil ifTrue:[
d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	495	self foregroundColor:fg.
d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	496	].
d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	497
d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	498	bg := styleSheet colorAt:#'toggle.backgroundColor'.
1873 6a4a05b093bc checkin from browser Claus Gittinger <cg@exept.de> parents: 1553 diff changeset	499	bg notNil ifTrue:[
1876 d229519bc782 more style options Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	500	self backgroundColor:bg.
1874 6ff31b38d752 added extra toggle.foreground and toggle.background styles Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	501	shadowColor := (bg averageColorIn:(0@0 corner:7@7)) darkened onDevice:device.
6ff31b38d752 added extra toggle.foreground and toggle.background styles Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	502	lightColor := (bg averageColorIn:(0@0 corner:7@7)) lightened onDevice:device.
1873 6a4a05b093bc checkin from browser Claus Gittinger <cg@exept.de> parents: 1553 diff changeset	503	].
6a4a05b093bc checkin from browser Claus Gittinger <cg@exept.de> parents: 1553 diff changeset	504
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	505	"Modified: / 3.11.1997 / 02:22:02 / cg"
22 ac872628ef2d * empty log message * claus parents: 7 diff changeset	506	! !
ac872628ef2d * empty log message * claus parents: 7 diff changeset	507
ac872628ef2d * empty log message * claus parents: 7 diff changeset	508	!Toggle methodsFor:'private'!
ac872628ef2d * empty log message * claus parents: 7 diff changeset	509
ac872628ef2d * empty log message * claus parents: 7 diff changeset	510	computeLabelOrigin
ac872628ef2d * empty log message * claus parents: 7 diff changeset	511	"compute the origin of the form/text.
ac872628ef2d * empty log message * claus parents: 7 diff changeset	512	redefined to move label to the right if there is a lamp."
ac872628ef2d * empty log message * claus parents: 7 diff changeset	513
ac872628ef2d * empty log message * claus parents: 7 diff changeset	514	super computeLabelOrigin.
ac872628ef2d * empty log message * claus parents: 7 diff changeset	515	showLamp ifTrue:[
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	516	labelOriginX := labelOriginX + hSpace + (self lampImageWidth) + hSpace.
22 ac872628ef2d * empty log message * claus parents: 7 diff changeset	517	]
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	518
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	519	"Modified: / 3.11.1997 / 14:27:03 / cg"
22 ac872628ef2d * empty log message * claus parents: 7 diff changeset	520	!
ac872628ef2d * empty log message * claus parents: 7 diff changeset	521
ac872628ef2d * empty log message * claus parents: 7 diff changeset	522	computeLabelSize
ac872628ef2d * empty log message * claus parents: 7 diff changeset	523	"compute the extent needed to hold the label plus the lamp"
ac872628ef2d * empty log message * claus parents: 7 diff changeset	524
ac872628ef2d * empty log message * claus parents: 7 diff changeset	525	super computeLabelSize.
ac872628ef2d * empty log message * claus parents: 7 diff changeset	526	showLamp ifTrue:[
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	527	labelWidth := labelWidth + hSpace + (self lampImageWidth) + hSpace.
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	528	labelHeight := labelHeight max: self lampImageHeight
22 ac872628ef2d * empty log message * claus parents: 7 diff changeset	529	]
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	530
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	531	"Modified: / 3.11.1997 / 14:26:54 / cg"
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	532	!
0 e6a541c1c0eb Initial revision claus parents: diff changeset	533
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	534	getValueFromModel
1464 079d8a07b19c checkin from browser Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	535	"fetch my boolean value from the model (if there is a model around)
079d8a07b19c checkin from browser Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	536	by sending it the aspectMessage, and update my look as required"
079d8a07b19c checkin from browser Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	537
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	538	\|val\|
121 4e63bbdb266a . claus parents: 119 diff changeset	539
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	540	(model notNil and:[aspectMsg notNil]) ifTrue:[
2963 14df9998d682 * empty log message * werner parents: 2957 diff changeset	541	aspectMsg == #value ifTrue:[
14df9998d682 * empty log message * werner parents: 2957 diff changeset	542	val := model value "/ faster call
14df9998d682 * empty log message * werner parents: 2957 diff changeset	543	] ifFalse:[
14df9998d682 * empty log message * werner parents: 2957 diff changeset	544	val := model perform:aspectMsg withOptionalArgument:self.
14df9998d682 * empty log message * werner parents: 2957 diff changeset	545	].
2964 b6d4c737970f asBoolean for WO werner parents: 2963 diff changeset	546	val asBoolean ifTrue:[ "allowing nil - treat as false"
1464 079d8a07b19c checkin from browser Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	547	self turnOn
079d8a07b19c checkin from browser Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	548	] ifFalse:[
079d8a07b19c checkin from browser Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	549	self turnOff
079d8a07b19c checkin from browser Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	550	].
121 4e63bbdb266a . claus parents: 119 diff changeset	551	].
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	552
1464 079d8a07b19c checkin from browser Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	553	"Created: / 14.11.1995 / 21:08:43 / cg"
2167 647f8139f594 tuned #value-sending Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	554	"Modified: / 1.3.2000 / 15:14:49 / cg"
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	555	!
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	556
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	557	lampImageHeight
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	558	^ lampHeight
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	559
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	560	"Created: / 3.11.1997 / 14:24:47 / cg"
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	561	!
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	562
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	563	lampImageWidth
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	564	^ lampWidth
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	565
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	566	"Created: / 3.11.1997 / 14:25:35 / cg"
121 4e63bbdb266a . claus parents: 119 diff changeset	567	! !
4e63bbdb266a . claus parents: 119 diff changeset	568
1020 e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	569	!Toggle methodsFor:'queries'!
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	570
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	571	preferredExtent
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	572	"return my preferred extent - this is the minimum size I would like to have"
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	573
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	574	\|pref x y\|
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	575
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	576	"/ If I have an explicit preferredExtent ..
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	577
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	578	preferredExtent notNil ifTrue:[
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	579	^ preferredExtent
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	580	].
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	581
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	582	pref := super preferredExtent.
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	583
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	584	showLamp ifTrue:[
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	585	"/ add some space for the lamp.
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	586
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	587	x := pref x + (self lampImageWidth) + hSpace.
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	588	y := pref y max:(self lampImageHeight).
1020 e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	589	pref := x @ y.
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	590	].
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	591	^ pref
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	592
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	593	"Modified: / 3.11.1997 / 14:26:41 / cg"
1020 e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	594	! !
e48ca624b904 fixed preferredExtent Claus Gittinger <cg@exept.de> parents: 993 diff changeset	595
105 3d064ba4a0cc * empty log message * claus parents: 95 diff changeset	596	!Toggle methodsFor:'redrawing'!
3d064ba4a0cc * empty log message * claus parents: 95 diff changeset	597
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	598	drawToggleImage
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	599	"drawing of the lamp is done here."
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	600
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	601	\|x y clr l2\|
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	602
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	603	showLamp ifTrue:[
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	604	x := hSpace + margin.
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	605	y := (height - self lampImageHeight) // 2.
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	606	self
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	607	drawEdgesForX:x y:y
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	608	width:(self lampImageWidth)
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	609	height:(self lampImageHeight)
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	610	level:-1.
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	611	controller pressed ifTrue:[
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	612	clr := lampColor.
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	613	] ifFalse:[
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	614	clr := bgColor.
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	615	].
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	616	self paint:clr.
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	617	l2 := LampInset*2.
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	618	self
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	619	fillRectangleX:x+LampInset y:y+LampInset
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	620	width:(self lampImageWidth) - l2
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	621	height:(self lampImageHeight) - l2
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	622	]
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	623
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	624	"Created: / 3.11.1997 / 12:12:07 / cg"
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	625	"Modified: / 3.11.1997 / 14:26:33 / cg"
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	626	!
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	627
105 3d064ba4a0cc * empty log message * claus parents: 95 diff changeset	628	drawWith:fg and:bg
3d064ba4a0cc * empty log message * claus parents: 95 diff changeset	629	"redraw myself with fg/bg. Use super to draw the label,
3d064ba4a0cc * empty log message * claus parents: 95 diff changeset	630	drawing of the lamp is done here."
3d064ba4a0cc * empty log message * claus parents: 95 diff changeset	631
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	632	shown ifFalse:[^ self].
105 3d064ba4a0cc * empty log message * claus parents: 95 diff changeset	633	super drawWith:fg and:bg. "this draws the text"
3d064ba4a0cc * empty log message * claus parents: 95 diff changeset	634
1385 691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	635	self drawToggleImage.
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	636
691d891fa440 flixiblized for better radioButton Claus Gittinger <cg@exept.de> parents: 1353 diff changeset	637	"Modified: / 3.11.1997 / 13:19:32 / cg"
105 3d064ba4a0cc * empty log message * claus parents: 95 diff changeset	638	! !
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	639
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	640	!Toggle class methodsFor:'documentation'!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	641
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	642	version
2964 b6d4c737970f asBoolean for WO werner parents: 2963 diff changeset	643	^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.51 2004-04-07 12:59:26 werner Exp $'
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 178 diff changeset	644	! !

author	werner
	Wed, 07 Apr 2004 14:59:26 +0200
changeset 2964	b6d4c737970f
parent 2963	14df9998d682
child 3262	46408c76531b
permissions	-rw-r--r--