hg/stx-libwidg: RadioButton.st@505264a24615 (annotated)

0 e6a541c1c0eb Initial revision claus parents: diff changeset	1	"
5 7b4fb1b170e5 claus parents: 3 diff changeset	2	COPYRIGHT (c) 1991 by Claus Gittinger
0 e6a541c1c0eb Initial revision claus parents: diff changeset	3	All Rights Reserved
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	"
2583 12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	12	"{ Package: 'stx:libwidg' }"
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	13
5540 7818c14b6026 class: SelectionInListView Claus Gittinger <cg@exept.de> parents: 5127 diff changeset	14	"{ NameSpace: Smalltalk }"
7818c14b6026 class: SelectionInListView Claus Gittinger <cg@exept.de> parents: 5127 diff changeset	15
0 e6a541c1c0eb Initial revision claus parents: diff changeset	16	Toggle subclass:#RadioButton
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	17	instanceVariableNames:'buttonStyle buttonOnLevel buttonOffLevel offImage onImage
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	18	buttonOffImage buttonOnImage disabledOnImage disabledOffImage
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	19	enteredOnImage enteredOffImage'
4505 347980ba9a1b more stylesheet options Claus Gittinger <cg@exept.de> parents: 4291 diff changeset	20	classVariableNames:'DefaultButtonStyle DefaultBorderWidth DefaultActiveLevel
347980ba9a1b more stylesheet options Claus Gittinger <cg@exept.de> parents: 4291 diff changeset	21	DefaultPassiveLevel DefaultForegroundColor DefaultBackgroundColor
2583 12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	22	DefaultActiveForegroundColor DefaultActiveBackgroundColor
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	23	MotifCheckBotForm MotifCheckTopForm MotifCheckInnerForm
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	24	Round3DCheckBotForm Round3DCheckTopForm Round3DCheckInnerForm
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	25	RoundHalfLightForm RoundOffForm RoundOnForm PassiveForm
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	26	ActiveForm EnteredPassiveForm EnteredActiveForm
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	27	DisabledActiveForm DisabledPassiveForm'
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	28	poolDictionaries:''
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	29	category:'Views-Interactors'
0 e6a541c1c0eb Initial revision claus parents: diff changeset	30	!
e6a541c1c0eb Initial revision claus parents: diff changeset	31
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	32	!RadioButton class methodsFor:'documentation'!
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	33
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	34	copyright
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	35	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	36	COPYRIGHT (c) 1991 by Claus Gittinger
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	37	All Rights Reserved
0 e6a541c1c0eb Initial revision claus parents: diff changeset	38
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	39	This software is furnished under a license and may be used
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	40	only in accordance with the terms of that license and with the
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	41	inclusion of the above copyright notice. This software may not
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	42	be provided or otherwise made available to, or used by, any
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	43	other person. No title to or ownership of the software is
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	44	hereby transferred.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	45	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	46	!
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	47
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	48	documentation
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	49	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	50	like a Toggle, but do not turn off when pressed again, instead only
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	51	turn off when another RadioButton is pressed (see RadioButtonGroup).
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	52
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	53	written fall 91 by claus
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	54
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	55	[author:]
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	56	Claus Gittinger
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	57	"
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	58	!
df2687090a7f * empty log message * claus parents: 77 diff changeset	59
df2687090a7f * empty log message * claus parents: 77 diff changeset	60	examples
df2687090a7f * empty log message * claus parents: 77 diff changeset	61	"
119 59758ff5b841 . claus parents: 105 diff changeset	62	See more examples in RadioButtonGroup class>>examples
59758ff5b841 . claus parents: 105 diff changeset	63
59758ff5b841 . claus parents: 105 diff changeset	64	example1: one on behavior (using RadioButtons)
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	65	[exBegin]
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	66	\|top panel b group\|
df2687090a7f * empty log message * claus parents: 77 diff changeset	67
df2687090a7f * empty log message * claus parents: 77 diff changeset	68	top := StandardSystemView new.
df2687090a7f * empty log message * claus parents: 77 diff changeset	69	top extent:200@200.
df2687090a7f * empty log message * claus parents: 77 diff changeset	70
6818 c0cabbabbf82 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 6382 diff changeset	71	panel := HorizontalPanelView origin:(0.0@0.0) corner:(1.0@1.0) in:top.
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	72
df2687090a7f * empty log message * claus parents: 77 diff changeset	73	group := RadioButtonGroup new.
df2687090a7f * empty log message * claus parents: 77 diff changeset	74
df2687090a7f * empty log message * claus parents: 77 diff changeset	75	b := RadioButton label:'am' in:panel.
df2687090a7f * empty log message * claus parents: 77 diff changeset	76	group add:b.
df2687090a7f * empty log message * claus parents: 77 diff changeset	77
df2687090a7f * empty log message * claus parents: 77 diff changeset	78	b := RadioButton label:'fm' in:panel.
df2687090a7f * empty log message * claus parents: 77 diff changeset	79	group add:b.
df2687090a7f * empty log message * claus parents: 77 diff changeset	80
df2687090a7f * empty log message * claus parents: 77 diff changeset	81	b := RadioButton label:'off' in:panel.
df2687090a7f * empty log message * claus parents: 77 diff changeset	82	group add:b.
3748 8ce94bccb3ac better icons Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	83	b enabled:false.
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	84
1087 171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	85	group value:1.
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	86	top open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	87	[exEnd]
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	88
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	89
119 59758ff5b841 . claus parents: 105 diff changeset	90	example2: zero or one on behavior (using Toggles)
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	91	[exBegin]
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	92	\|top panel b group\|
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	93
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	94	top := StandardSystemView new.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	95	top extent:200@200.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	96
6818 c0cabbabbf82 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 6382 diff changeset	97	panel := HorizontalPanelView origin:(0.0@0.0) corner:(1.0@1.0) in:top.
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	98
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	99	group := RadioButtonGroup new.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	100
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	101	b := Toggle label:'am' in:panel.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	102	group add:b.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	103
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	104	b := Toggle label:'fm' in:panel.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	105	group add:b.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	106
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	107	b := Toggle label:'off' in:panel.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	108	group add:b.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	109
1087 171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	110	group value:1.
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	111	top open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	112	[exEnd]
1087 171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	113
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	114
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	115	a selectionInListView and a group displaying the same value:
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	116	[exBegin]
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	117	\|top top2 panel b sv group selectionInList\|
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	118
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	119	top := StandardSystemView extent:200@200.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	120
6818 c0cabbabbf82 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 6382 diff changeset	121	panel := HorizontalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
1087 171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	122
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	123	group := RadioButtonGroup new.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	124	selectionInList := SelectionInList new.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	125	selectionInList list:#('am' 'fm' 'off').
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	126	selectionInList selectionIndexHolder:group.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	127
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	128	b := Toggle label:'am' in:panel.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	129	group add:b.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	130
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	131	b := Toggle label:'fm' in:panel.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	132	group add:b.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	133
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	134	b := Toggle label:'off' in:panel.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	135	group add:b.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	136
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	137	group value:1.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	138	top open.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	139
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	140	top2 := StandardSystemView extent:200@200.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	141	sv := SelectionInListView in:top2.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	142	sv model:selectionInList.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	143	sv origin:0.0@0.0 corner:1.0@1.0.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	144	top2 open.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	145
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	146	[exEnd]
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	147	"
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	148	! !
0 e6a541c1c0eb Initial revision claus parents: diff changeset	149
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	150	!RadioButton class methodsFor:'defaults'!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	151
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	152	activeForm
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	153	ActiveForm isNil ifTrue:[
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	154	self updateStyleCache.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	155	].
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	156	^ ActiveForm
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	157
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	158	"
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	159	ActiveForm := nil.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	160	self updateStyleCache
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	161	"
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	162	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	163
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	164	disabledActiveForm
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	165	DisabledActiveForm isNil ifTrue:[
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	166	self updateStyleCache.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	167	].
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	168	^ DisabledActiveForm
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	169
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	170	"
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	171	DisabledActiveForm := nil.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	172	self updateStyleCache
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	173	"
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	174	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	175
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	176	disabledPassiveForm
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	177	DisabledPassiveForm isNil ifTrue:[
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	178	self updateStyleCache.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	179	].
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	180	^ DisabledPassiveForm
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	181
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	182	"
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	183	DisabledPassiveForm := nil.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	184	self updateStyleCache
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	185	"
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	186	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	187
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	188	enteredActiveForm
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	189	EnteredActiveForm isNil ifTrue:[
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	190	self updateStyleCache.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	191	].
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	192	^ EnteredActiveForm
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	193
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	194	"
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	195	EnteredActiveForm := nil.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	196	self updateStyleCache
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	197	"
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	198	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	199
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	200	enteredPassiveForm
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	201	EnteredPassiveForm isNil ifTrue:[
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	202	self updateStyleCache.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	203	].
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	204	^ EnteredPassiveForm
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	205
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	206	"
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	207	EnteredPassiveForm := nil.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	208	self updateStyleCache
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	209	"
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	210	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	211
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	212	motifCheckBotForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	213	MotifCheckBotForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	214	MotifCheckBotForm := Form
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	215	width:15
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	216	height:15
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	217	fromArray:#[2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	218	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	219	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	220	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	221	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	222	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	223	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	224	2r00000000 2r00001110
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	225	2r01110000 2r00011100
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	226	2r00111000 2r00111000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	227	2r00011100 2r01110000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	228	2r00001110 2r11100000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	229	2r00000111 2r11000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	230	2r00000011 2r10000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	231	2r00000001 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	232	].
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	233	MotifCheckBotForm := MotifCheckBotForm onDevice:Display.
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	234	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	235	^ MotifCheckBotForm
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	236
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	237	"Created: / 3.11.1997 / 12:06:45 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	238	"Modified: / 30.7.1998 / 21:27:53 / cg"
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	239	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	240
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	241	motifCheckInnerForm
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	242	MotifCheckInnerForm isNil ifTrue:[
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	243	MotifCheckInnerForm := Form
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	244	width:15
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	245	height:15
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	246	fromArray:#[2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	247	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	248	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	249	2r00000001 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	250	2r00000011 2r10000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	251	2r00000111 2r11000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	252	2r00001111 2r11100000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	253	2r00011111 2r11110000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	254	2r00001111 2r11100000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	255	2r00000111 2r11000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	256	2r00000011 2r10000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	257	2r00000001 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	258	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	259	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	260	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	261	].
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	262	MotifCheckInnerForm := MotifCheckInnerForm onDevice:Display
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	263	].
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	264	^ MotifCheckInnerForm
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	265
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	266	"Created: / 3.11.1997 / 12:06:45 / cg"
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	267	"Modified: / 30.7.1998 / 21:28:45 / cg"
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	268	!
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	269
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	270	motifCheckTopForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	271	MotifCheckTopForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	272	MotifCheckTopForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	273	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	274	height:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	275	fromArray:#[2r00000001 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	276	2r00000011 2r10000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	277	2r00000111 2r11000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	278	2r00001110 2r11100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	279	2r00011100 2r01110000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	280	2r00111000 2r00111000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	281	2r01110000 2r00011100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	282	2r11100000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	283	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	284	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	285	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	286	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	287	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	288	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	289	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	290	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	291	MotifCheckTopForm := MotifCheckTopForm onDevice:Display
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	292	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	293	^ MotifCheckTopForm
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	294
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	295	"Created: / 3.11.1997 / 12:06:45 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	296	"Modified: / 30.7.1998 / 21:28:45 / cg"
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	297	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	298
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	299	passiveForm
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	300	PassiveForm isNil ifTrue:[
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	301	self updateStyleCache.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	302	].
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	303	^ PassiveForm
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	304
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	305	"
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	306	PassiveForm := nil.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	307	self updateStyleCache
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	308	"
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	309	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	310
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	311	round3DCheckBotForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	312	Round3DCheckBotForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	313	Round3DCheckBotForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	314	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	315	height:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	316	fromArray:#[2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	317	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	318	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	319	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	320	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	321	2r00000000 2r00000010
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	322	2r00000000 2r00000010
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	323	2r00000000 2r00000110
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	324	2r00000000 2r00000110
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	325	2r00000000 2r00000110
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	326	2r00000000 2r00001110
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	327	2r01110000 2r00011100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	328	2r01111000 2r00111100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	329	2r00111111 2r11111000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	330	2r00001111 2r11100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	331	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	332	Round3DCheckBotForm := Round3DCheckBotForm onDevice:Display.
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	333	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	334	^ Round3DCheckBotForm
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	335
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	336	"Created: / 3.11.1997 / 14:29:37 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	337	"Modified: / 30.7.1998 / 21:29:57 / cg"
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	338	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	339
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	340	round3DCheckInnerForm
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	341	Round3DCheckInnerForm isNil ifTrue:[
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	342	Round3DCheckInnerForm := Form
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	343	width:15
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	344	height:15
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	345	fromArray:#[2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	346	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	347	2r00000111 2r11000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	348	2r00001111 2r11100000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	349	2r00011111 2r11110000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	350	2r00111111 2r11111000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	351	2r00111111 2r11111000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	352	2r00111111 2r11111000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	353	2r00111111 2r11111000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	354	2r00111111 2r11111000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	355	2r00011111 2r11110000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	356	2r00001111 2r11100000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	357	2r00000111 2r11000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	358	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	359	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	360	].
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	361
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	362	Round3DCheckInnerForm := Round3DCheckInnerForm onDevice:Display.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	363	].
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	364	^ Round3DCheckInnerForm
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	365
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	366	"Created: / 3.11.1997 / 14:29:45 / cg"
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	367	"Modified: / 30.7.1998 / 21:30:47 / cg"
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	368	!
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	369
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	370	round3DCheckTopForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	371	Round3DCheckTopForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	372	Round3DCheckTopForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	373	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	374	height:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	375	fromArray:#[2r00000011 2r10000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	376	2r00011110 2r11110000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	377	2r00111000 2r00011000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	378	2r01110000 2r00001100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	379	2r01100000 2r00001100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	380	2r11000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	381	2r11000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	382	2r11000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	383	2r11000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	384	2r11000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	385	2r01100000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	386	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	387	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	388	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	389	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	390	].
1394 7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	391	"/ fromArray:#[2r00000111 2r11000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	392	"/ 2r00011110 2r11110000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	393	"/ 2r00111000 2r00111000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	394	"/ 2r01110000 2r00011100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	395	"/ 2r01100000 2r00001100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	396	"/ 2r11000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	397	"/ 2r11000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	398	"/ 2r11000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	399	"/ 2r11000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	400	"/ 2r11000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	401	"/ 2r01100000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	402	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	403	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	404	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	405	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	406	"/ ]
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	407
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	408	Round3DCheckTopForm := Round3DCheckTopForm onDevice:Display.
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	409	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	410	^ Round3DCheckTopForm
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	411
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	412	"Created: / 3.11.1997 / 14:29:45 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	413	"Modified: / 30.7.1998 / 21:30:47 / cg"
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	414	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	415
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	416	roundHalfLightForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	417	RoundHalfLightForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	418	RoundHalfLightForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	419	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	420	height:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	421	fromArray:#[2r00001100 2r01100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	422	2r00110000 2r00010000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	423	2r01100000 2r00001000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	424	2r01000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	425	2r11000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	426	2r10000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	427	2r10000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	428	2r10000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	429	2r10000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	430	2r10000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	431	2r11000000 2r00001000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	432	2r00110000 2r00010000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	433	2r00011000 2r00110000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	434	2r00000111 2r11000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	435	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	436	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	437
1394 7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	438	"/ fromArray:#[2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	439	"/ 2r00000011 2r10000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	440	"/ 2r00001000 2r00100000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	441	"/ 2r00010000 2r00010000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	442	"/ 2r00100000 2r00001000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	443	"/ 2r00000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	444	"/ 2r01000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	445	"/ 2r01000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	446	"/ 2r01000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	447	"/ 2r00000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	448	"/ 2r00100000 2r00001000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	449	"/ 2r00010000 2r00010000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	450	"/ 2r00001000 2r00100000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	451	"/ 2r00000011 2r10000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	452	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	453	"/ ]
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	454
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	455	RoundHalfLightForm := RoundHalfLightForm onDevice:Display.
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	456	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	457	^ RoundHalfLightForm
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	458
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	459	"Created: / 3.11.1997 / 18:26:40 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	460	"Modified: / 30.7.1998 / 21:31:55 / cg"
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	461	!
0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	462
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	463	roundOffForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	464	RoundOffForm isNil ifTrue:[
3693 e8e00489ec10 Remove debug printing Stefan Vogel <sv@exept.de> parents: 3689 diff changeset	465	"DSVColumnView>>updateStyleCache calls us before our style
e8e00489ec10 Remove debug printing Stefan Vogel <sv@exept.de> parents: 3689 diff changeset	466	cache has been initialized"
3688 e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	467	self updateStyleCache.
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	468	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	469	^ RoundOffForm
3688 e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	470	!
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	471
3688 e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	472	roundOffForm_old
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	473	^ Form
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	474	width:16
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	475	height:16
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	476	fromArray:#[
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	477	2r00000011 2r10000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	478	2r00001100 2r01100000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	479	2r00010000 2r00010000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	480	2r00100000 2r00001000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	481	2r01000000 2r00000100
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	482	2r01000000 2r00000100
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	483	2r10000000 2r00000010
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	484	2r10000000 2r00000010
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	485	2r10000000 2r00000010
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	486	2r01000000 2r00000100
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	487	2r01000000 2r00000100
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	488	2r00100000 2r00001000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	489	2r00010000 2r00010000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	490	2r00001100 2r01100000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	491	2r00000011 2r10000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	492	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	493	].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	494	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	495
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	496	roundOnForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	497	RoundOnForm isNil ifTrue:[
3693 e8e00489ec10 Remove debug printing Stefan Vogel <sv@exept.de> parents: 3689 diff changeset	498	"DSVColumnView>>updateStyleCache calls us before our style
e8e00489ec10 Remove debug printing Stefan Vogel <sv@exept.de> parents: 3689 diff changeset	499	cache has been initialized"
3688 e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	500	self updateStyleCache.
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	501	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	502	^ RoundOnForm
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	503
3688 e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	504	"
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	505	RoundOnForm := nil.
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	506	self updateStyleCache
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	507	"
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	508	!
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	509
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	510	roundOnForm_old
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	511	^ Form
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	512	width:16
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	513	height:16
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	514	fromArray:#[
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	515	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	516	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	517	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	518	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	519	2r00000011 2r10000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	520	2r00000111 2r11000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	521	2r00001111 2r11100000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	522	2r00001111 2r11100000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	523	2r00001111 2r11100000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	524	2r00000111 2r11000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	525	2r00000011 2r10000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	526	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	527	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	528	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	529	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	530	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	531	].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	532	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	533
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	534	updateStyleCache
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	535	<resource: #style (#'radioButton.style'
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	536	#'radioButton.activeLevel'
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	537	#'radioButton.passiveLevel'
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	538	#'radioButton.activeImageFile'
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	539	#'radioButton.activeImage'
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	540	#'radioButton.enteredActiveImageFile'
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	541	#'radioButton.enteredActiveImage'
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	542	#'radioButton.passiveImageFile'
2583 12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	543	#'radioButton.passiveImage'
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	544	#'radioButton.enteredPassiveImageFile'
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	545	#'radioButton.enteredPassiveImage'
2583 12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	546	#'radioButton.foregroundColor'
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	547	#'radioButton.backgroundColor'
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	548	#'radioButton.activeForegroundColor'
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	549	#'radioButton.activeBackgroundColor'
4505 347980ba9a1b more stylesheet options Claus Gittinger <cg@exept.de> parents: 4291 diff changeset	550	#'radioButton.borderWidth'
2583 12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	551	)>
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	552
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	553	\|l fetchImage\|
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	554
4505 347980ba9a1b more stylesheet options Claus Gittinger <cg@exept.de> parents: 4291 diff changeset	555	DefaultBorderWidth := StyleSheet at:#'radioButton.borderWidth'.
347980ba9a1b more stylesheet options Claus Gittinger <cg@exept.de> parents: 4291 diff changeset	556
4740 0399aad4f124 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4739 diff changeset	557	DefaultFont := StyleSheet fontAt:'label.font'.
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	558	DefaultButtonStyle := StyleSheet at:#'radioButton.style'.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	559	l := -1.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	560	DefaultButtonStyle == #round2D ifTrue:[l := 0].
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	561	DefaultActiveLevel := StyleSheet at:#'radioButton.activeLevel' default:l.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	562	DefaultButtonStyle == #motif ifTrue:[l := 1].
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	563	DefaultPassiveLevel := StyleSheet at:#'radioButton.passiveLevel' default:l.
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	564
2583 12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	565	DefaultForegroundColor := StyleSheet at:#'radioButton.foregroundColor'.
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	566	DefaultBackgroundColor := StyleSheet at:#'radioButton.backgroundColor'.
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	567
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	568	DefaultActiveForegroundColor := StyleSheet at:#'radioButton.activeForegroundColor'.
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	569	DefaultActiveBackgroundColor := StyleSheet at:#'radioButton.activeBackgroundColor'.
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	570
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	571	RoundOnForm := RoundOffForm := nil.
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	572	ActiveForm := EnteredActiveForm := nil.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	573	PassiveForm := EnteredPassiveForm := nil.
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	574
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	575	fetchImage :=
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	576	[:fileNameKey :imageKey :defaultW95 :defaultXP :defaultVista \|
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	577	\|f\|
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	578
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	579	f := StyleSheet at:imageKey.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	580	f notNil
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	581	ifTrue:[
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	582	f := f value ]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	583	ifFalse:[
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	584	f := StyleSheet at:fileNameKey.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	585	f notNil
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	586	ifTrue:[
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	587	f := Smalltalk imageFromFileNamed:f forClass:self.]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	588	ifFalse:[
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	589	f := (StyleSheet isWindowsVistaStyle)
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	590	ifTrue:defaultVista
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	591	ifFalse:[
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	592	StyleSheet isWindowsXPStyle
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	593	ifTrue:defaultXP
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	594	ifFalse:defaultW95].
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	595	]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	596	].
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	597	f notNil ifTrue:[
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	598	f := f onDevice:Display
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	599	].
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	600	f
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	601	].
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	602
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	603	ActiveForm := RoundOnForm := fetchImage
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	604	value:#'radioButton.activeImageFile'
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	605	value:#'radioButton.activeImage'
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	606	value:[ self radioOnIcon_w95 ]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	607	value:[ self radioOnIcon_xp ]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	608	value:[ self radioOnIcon_vista ].
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	609
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	610	PassiveForm := RoundOffForm := fetchImage
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	611	value:#'radioButton.passiveImageFile'
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	612	value:#'radioButton.passiveImage'
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	613	value:[ self radioOffIcon_w95 ]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	614	value:[ self radioOffIcon_xp ]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	615	value:[ self radioOffIcon_vista ].
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	616
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	617	EnteredActiveForm := fetchImage
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	618	value:#'radioButton.enteredActiveImageFile'
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	619	value:#'radioButton.enteredActiveImage'
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	620	value:[ self radioOnEnteredIcon_w95 ]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	621	value:[ self radioOnEnteredIcon_xp ]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	622	value:[ self radioOnEnteredIcon_vista ].
3687 48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	623
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	624	EnteredPassiveForm := fetchImage
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	625	value:#'radioButton.enteredPassiveImageFile'
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	626	value:#'radioButton.enteredPassiveImage'
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	627	value:[ self radioOffEnteredIcon_w95 ]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	628	value:[ self radioOffEnteredIcon_xp ]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	629	value:[ self radioOffEnteredIcon_vista ].
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	630
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	631	DisabledActiveForm := fetchImage
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	632	value:#'radioButton.disabledActiveImageFile'
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	633	value:#'radioButton.disabledActiveImage'
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	634	value:[ self radioOnDisabledIcon_w95 ]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	635	value:[ self radioOnDisabledIcon_xp ]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	636	value:[ self radioOnDisabledIcon_vista ].
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	637
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	638	DisabledPassiveForm := fetchImage
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	639	value:#'radioButton.disabledPassiveImageFile'
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	640	value:#'radioButton.disabledPassiveImage'
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	641	value:[ self radioOffDisabledIcon_w95 ]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	642	value:[ self radioOffDisabledIcon_xp ]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	643	value:[ self radioOffDisabledIcon_vista ].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	644
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	645	"
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	646	self updateStyleCache
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	647	"
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	648
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	649	"Modified: / 28.4.1999 / 13:59:00 / cg"
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	650	! !
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	651
3687 48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	652	!RadioButton class methodsFor:'image specs'!
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	653
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	654	radioOffDisabledIcon_vista
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	655	<resource: #programImage>
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	656
3748 8ce94bccb3ac better icons Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	657	^ VistaToolbarIconLibrary radioOffDisabled12x12Icon
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	658
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	659	"Modified: / 28-07-2018 / 09:54:38 / Claus Gittinger"
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	660	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	661
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	662	radioOffDisabledIcon_w95
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	663	<resource: #programImage>
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	664
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	665	^ self radioOffIcon_w95
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	666
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	667	"Modified: / 28-07-2018 / 09:54:35 / Claus Gittinger"
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	668	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	669
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	670	radioOffDisabledIcon_xp
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	671	<resource: #programImage>
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	672
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	673	^ self radioOffIcon_xp
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	674
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	675	"Modified: / 28-07-2018 / 09:54:30 / Claus Gittinger"
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	676	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	677
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	678	radioOffEnteredIcon_vista
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	679	<resource: #programImage>
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	680
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	681	^ VistaToolbarIconLibrary radioOffEntered12x12Icon
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	682
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	683	"Modified: / 28-07-2018 / 09:54:27 / Claus Gittinger"
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	684	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	685
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	686	radioOffEnteredIcon_w95
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	687	<resource: #programImage>
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	688
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	689	^ self radioOffIcon_w95
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	690
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	691	"Modified: / 28-07-2018 / 09:54:24 / Claus Gittinger"
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	692	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	693
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	694	radioOffEnteredIcon_xp
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	695	<resource: #programImage>
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	696
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	697	^ self radioOffIcon_xp
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	698
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	699	"Modified: / 28-07-2018 / 09:54:21 / Claus Gittinger"
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	700	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	701
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	702	radioOffIcon_vista
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	703	<resource: #programImage>
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	704
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	705	^ VistaToolbarIconLibrary radioOff12x12Icon
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	706
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	707	"Modified: / 28-07-2018 / 09:54:18 / Claus Gittinger"
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	708	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	709
3687 48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	710	radioOffIcon_w95
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	711	"This resource specification was automatically generated
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	712	by the ImageEditor of ST/X."
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	713
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	714	"Do not manually edit this!! If it is corrupted,
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	715	the ImageEditor may not be able to read the specification."
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	716
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	717	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	718	self radioOffIcon_w95 inspect
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	719	ImageEditor openOnClass:self andSelector:#radioOffIcon_w95
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	720	Icon flushCachedIcons
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	721	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	722
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	723	<resource: #image>
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	724
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	725	^Icon
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	726	constantNamed:'RadioButton class radioOffIcon_w95'
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	727	ifAbsentPut:[(Depth8Image new) width: 12; height: 12; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	728	A@PDA@DA@PDDA@PDA@PA@P@@@@@A@PPDA@D@@@LC@0L@@@LDA@D@@0LC@0LC@ LD@P@C@0LC@0LC@0HC@P@C@0LC@0LC@0HC@P@C@0LC@0LC@0HC@P@C@0LC
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	729	@0LC@0HCA@D@@0LC@0LC@ LDA@DB@ LC@0LB@ LDA@PC@0HB@ HC@0PDA@PDA@LC@0LDA@PD') ; colorMapFromArray:#[0 0 0 128 128 128 223 223 223 255 255 255 0 0 0]; mask:((ImageMask new) width: 12; height: 12; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C0@?0G? _>C?<O?0??C?<G? _>@?0@<@') ; yourself); yourself]
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	730	!
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	731
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	732	radioOffIcon_xp
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	733	"This resource specification was automatically generated
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	734	by the ImageEditor of ST/X."
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	735
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	736	"Do not manually edit this!! If it is corrupted,
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	737	the ImageEditor may not be able to read the specification."
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	738
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	739	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	740	self radioOffIcon_xp inspect
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	741	ImageEditor openOnClass:self andSelector:#radioOffIcon_xp
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	742	Icon flushCachedIcons
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	743	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	744
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	745	<resource: #image>
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	746
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	747	^Icon
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	748	constantNamed:'RadioButton class radioOffIcon_xp'
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	749	ifAbsentPut:[(Depth8Image new) width: 13; height: 13; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	750	KB0,A T''G"\EA"0,KB0,B1,OH14%DQ,KKB0,B1 P@BPTE1$&J@,,D1,P@BPTE1$\CB$[D0TO@BPTE1$\C@4+E T''H2PTE1$\C@4+@Q<JG!!4TE1$\C@4+@PL*
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	751	G (%E1$\C@4+@PLHHB\UDQ$\C@4+@PLHA0$ED1,&C@4+@PLHA0P[H"0KJB$+@PLHA0PNB20,KA([E!!<*H@$[B20,KB0,HQT''G (R@"0,K@@a') ; colorMapFromArray:#[224 224 219 247 247 246 221 226 229 249 249 248 188 204 217 164 183 198 222 228 229 253 253 252 251 251 250 112 145 175 90 128 159 180 195 206 241 241 239 243 243 241 96 133 166 100 134 161 166 181 191 104 137 166 164 182 198 222 227 229 229 229 226 164 183 197 110 143 172 232 232 229 85 122 154 236 236 233 179 195 206 33 85 130 239 239 236 218 220 218 36 87 131 185 200 213 188 203 216 222 226 229 222 227 228 167 183 193 226 226 222 171 186 198 178 193 205 90 128 160 91 129 161 181 196 208 242 244 245 245 245 244 0 0 0]; mask:((ImageMask new) width: 13; height: 13; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G<@?8G?0??#?>O?8??#?>O?8??!!?<C? G<@b') ; yourself); yourself]
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	752	!
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	753
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	754	radioOnDisabledIcon_vista
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	755	<resource: #programImage>
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	756
3748 8ce94bccb3ac better icons Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	757	^ VistaToolbarIconLibrary radioOnDisabled12x12Icon
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	758
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	759	"Modified: / 28-07-2018 / 09:54:15 / Claus Gittinger"
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	760	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	761
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	762	radioOnDisabledIcon_w95
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	763	<resource: #programImage>
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	764
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	765	^ self radioOnIcon_w95
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	766
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	767	"Modified: / 28-07-2018 / 09:54:09 / Claus Gittinger"
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	768	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	769
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	770	radioOnDisabledIcon_xp
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	771	<resource: #programImage>
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	772
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	773	^ self radioOnIcon_xp
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	774
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	775	"Modified: / 28-07-2018 / 09:54:05 / Claus Gittinger"
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	776	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	777
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	778	radioOnEnteredIcon_vista
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	779	<resource: #programImage>
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	780
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	781	^ VistaToolbarIconLibrary radioOnEntered12x12Icon
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	782
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	783	"Modified: / 28-07-2018 / 09:54:02 / Claus Gittinger"
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	784	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	785
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	786	radioOnEnteredIcon_w95
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	787	<resource: #programImage>
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	788
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	789	^ self radioOnIcon_w95
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	790
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	791	"Modified: / 28-07-2018 / 09:53:59 / Claus Gittinger"
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	792	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	793
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	794	radioOnEnteredIcon_xp
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	795	<resource: #programImage>
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	796
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	797	^ self radioOnIcon_xp
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	798
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	799	"Modified: / 28-07-2018 / 09:53:56 / Claus Gittinger"
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	800	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	801
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	802	radioOnIcon_vista
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	803	<resource: #programImage>
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	804
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	805	^ VistaToolbarIconLibrary radioOn12x12Icon
6382 161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	806
161c963b04c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	807	"Modified: / 28-07-2018 / 09:53:52 / Claus Gittinger"
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	808	!
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	809
3687 48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	810	radioOnIcon_w95
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	811	"This resource specification was automatically generated
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	812	by the ImageEditor of ST/X."
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	813
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	814	"Do not manually edit this!! If it is corrupted,
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	815	the ImageEditor may not be able to read the specification."
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	816
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	817	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	818	self radioOnIcon_w95 inspect
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	819	ImageEditor openOnClass:self andSelector:#radioOnIcon_w95
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	820	Icon flushCachedIcons
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	821	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	822
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	823	<resource: #image>
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	824
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	825	^Icon
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	826	constantNamed:'RadioButton class radioOnIcon_w95'
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	827	ifAbsentPut:[(Depth8Image new) width: 12; height: 12; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	828	A@PDA@DA@PDDA@PDA@PA@P@@@@@A@PPDA@D@@@LC@0L@@@LDA@D@@0LC@0LC@ LD@P@C@0L@@@LC@0HC@P@C@0@@@@@C@0HC@P@C@0@@@@@C@0HC@P@C@0L@
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	829	@@LC@0HCA@D@@0LC@0LC@ LDA@DB@ LC@0LB@ LDA@PC@0HB@ HC@0PDA@PDA@LC@0LDA@PD') ; colorMapFromArray:#[0 0 0 128 128 128 223 223 223 255 255 255 0 0 0]; mask:((ImageMask new) width: 12; height: 12; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C0@?0G? _>C?<O?0??C?<G? _>@?0@<@') ; yourself); yourself]
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	830	!
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	831
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	832	radioOnIcon_xp
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	833	"This resource specification was automatically generated
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	834	by the ImageEditor of ST/X."
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	835
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	836	"Do not manually edit this!! If it is corrupted,
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	837	the ImageEditor may not be able to read the specification."
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	838
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	839	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	840	self radioOnIcon_xp inspect
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	841	ImageEditor openOnClass:self andSelector:#radioOnIcon_xp
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	842	Icon flushCachedIcons
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	843	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	844
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	845	<resource: #image>
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	846
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	847	^Icon
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	848	constantNamed:'RadioButton class radioOnIcon_xp'
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	849	ifAbsentPut:[(Depth8Image new) width: 13; height: 13; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	850	Q4]GC18MK04^C4]GQ4]GL0T<JD@1PPT3Q4]GL2ABA2(9BQ@AO3MGE UBOQ<7DBMCIA(EE!!8<A1<HL#86K@IDJQ8MJB(7L XQC (&I!!,UK4@9DC8WJ3UE@0LR
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	851	K1T1BRL6Q"8TLC(-M@4"PQACK@(DI1L\C@@^E TAI@H&@3(\B2TEFT\3O1)DI L-CBT;L4]GQ3 EJQ,RM@@EL4]GQ4]GFBHMK1T!!GT]GQ0@a') ; colorMapFromArray:#[112 145 175 178 193 205 245 245 243 249 249 248 36 150 36 33 85 130 85 213 81 224 224 219 226 232 222 232 232 229 154 204 152 253 253 253 253 253 252 90 128 160 41 168 38 222 228 229 236 236 233 67 195 63 242 244 245 238 243 237 19 146 16 90 128 159 222 227 229 66 195 63 222 226 229 222 227 228 181 196 208 185 200 213 252 252 251 221 226 229 164 183 198 231 231 227 85 122 154 164 182 198 164 183 197 239 239 236 243 243 241 188 204 217 247 247 246 152 201 151 167 183 193 110 143 172 226 226 222 56 185 53 232 238 230 251 251 250 34 162 32 36 87 131 152 200 151 171 186 198 169 220 166 180 195 206 188 203 216 33 161 33 160 210 158 234 234 230 179 195 206 229 229 226 250 250 249 96 133 166 100 134 161 229 229 225 77 191 74 91 129 161 218 220 218 104 137 166 166 181 191 241 241 239 245 245 244 38 150 35 42 168 39 0 0 0]; mask:((ImageMask new) width: 13; height: 13; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G<@?8G?0??#?>O?8??#?>O?8??!!?<C? G<@b') ; yourself); yourself]
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	852	! !
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	853
1583 147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	854	!RadioButton methodsFor:'accessing'!
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	855
3601 650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	856	allViewBackground:something if:condition
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	857	(condition value:self) ifTrue:[
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	858	self backgroundColor:something.
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	859
3601 650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	860	(buttonStyle == #motif
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	861	or:[buttonStyle == #round3D
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	862	or:[buttonStyle == #image
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	863	or:[buttonStyle == #round2D]]]) ifTrue:[
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	864	enteredBgColor := something.
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	865	activeBgColor := something.
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	866	]
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	867	]
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	868	!
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	869
1583 147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	870	forceRadioButtonStyle
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	871	"force the radioButton to be displayed as round/motif radio button -
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	872	even if the styleSheet defaults differently.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	873	(as in IRIS style)"
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	874
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	875	buttonStyle isNil ifTrue:[
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	876	styleSheet is3D ifTrue:[
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	877	buttonStyle := #round3D.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	878	activeBgColor := bgColor.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	879	activeFgColor := fgColor.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	880	] ifFalse:[
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	881	buttonStyle := #round2D.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	882	activeFgColor := fgColor.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	883	activeBgColor := bgColor.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	884	].
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	885	buttonOnLevel := DefaultActiveLevel.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	886	buttonOffLevel := DefaultPassiveLevel.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	887	onLevel := offLevel := 0.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	888	self level:0
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	889	]
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	890
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	891	"Modified: / 18.6.1998 / 21:19:01 / cg"
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	892	"Created: / 18.6.1998 / 21:23:58 / cg"
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	893	! !
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	894
5125 919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	895	!RadioButton methodsFor:'changing state'!
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	896
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	897	turnOff
5127 fcd696f9f401 Access device and drawableId via message sends Stefan Vogel <sv@exept.de> parents: 5125 diff changeset	898	\|id\|
fcd696f9f401 Access device and drawableId via message sends Stefan Vogel <sv@exept.de> parents: 5125 diff changeset	899
5125 919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	900	super turnOff.
5127 fcd696f9f401 Access device and drawableId via message sends Stefan Vogel <sv@exept.de> parents: 5125 diff changeset	901	id := gc drawableId.
fcd696f9f401 Access device and drawableId via message sends Stefan Vogel <sv@exept.de> parents: 5125 diff changeset	902	id notNil ifTrue:[
5125 919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	903	self isNativeWidget ifTrue:[
5629 96ce049398d4 device access Claus Gittinger <cg@exept.de> parents: 5540 diff changeset	904	device changeButtonState:false in:id.
5125 919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	905	].
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	906	].
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	907	!
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	908
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	909	turnOn
5127 fcd696f9f401 Access device and drawableId via message sends Stefan Vogel <sv@exept.de> parents: 5125 diff changeset	910	\|id\|
fcd696f9f401 Access device and drawableId via message sends Stefan Vogel <sv@exept.de> parents: 5125 diff changeset	911
5125 919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	912	super turnOn.
5127 fcd696f9f401 Access device and drawableId via message sends Stefan Vogel <sv@exept.de> parents: 5125 diff changeset	913	id := gc drawableId.
fcd696f9f401 Access device and drawableId via message sends Stefan Vogel <sv@exept.de> parents: 5125 diff changeset	914	id notNil ifTrue:[
5125 919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	915	self isNativeWidget ifTrue:[
5629 96ce049398d4 device access Claus Gittinger <cg@exept.de> parents: 5540 diff changeset	916	device changeButtonState:true in:id.
5125 919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	917	].
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	918	].
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	919	! !
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	920
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	921	!RadioButton methodsFor:'drawing'!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	922
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	923	drawToggleImage
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	924	"drawing of the radio image is done here."
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	925
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	926	\|x y img clrTop clrBot imgTop imgBot imgInside imgH imgOn threeD lvl
4906 d07b99eecdfe class: RadioButton Stefan Vogel <sv@exept.de> parents: 4740 diff changeset	927	isActive isEntered isEnabled imgTopHeight graphicsDevice\|
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	928
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	929	buttonStyle isNil ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	930	^ super drawToggleImage
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	931	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	932
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	933	isActive := controller pressed.
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	934	isEnabled := controller enabled.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	935	isEnabled ifFalse:[
3857 c9a39d1af47d * empty log message * Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	936	img := isActive ifTrue: [disabledOnImage] ifFalse: [disabledOffImage].
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	937	] ifTrue:[
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	938	isEntered := controller entered.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	939	isEntered ifTrue:[
3856 09424e19650d * empty log message * Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	940	img := isActive ifTrue: [enteredOnImage] ifFalse: [enteredOffImage].
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	941	] ifFalse:[
3856 09424e19650d * empty log message * Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	942	img := isActive ifTrue:[onImage] ifFalse: [offImage].
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	943	]
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	944	].
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	945
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	946	img notNil ifTrue:[
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	947	x := hSpace + margin.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	948	y := (height - img height) // 2.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	949	self displayForm:img x:x y:y.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	950	^ self.
9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	951	].
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	952
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	953	threeD := true.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	954	buttonStyle == #motif ifTrue:[
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	955	"/ square rotated by 45 degrees ...
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	956	imgTop := self class motifCheckTopForm.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	957	imgBot := self class motifCheckBotForm.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	958	imgInside := self class motifCheckInnerForm.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	959	] ifFalse:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	960	buttonStyle == #round3D ifTrue:[
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	961	"/ round 3D button ...
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	962	imgTop := self class round3DCheckTopForm.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	963	imgBot := self class round3DCheckBotForm.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	964	imgInside := self class round3DCheckInnerForm.
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	965	imgH := self class roundHalfLightForm.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	966	buttonOnLevel == buttonOffLevel ifTrue:[
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	967	isActive ifTrue:[
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	968	imgOn := self class roundOnForm.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	969	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	970	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	971	] ifFalse:[
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	972	buttonStyle == #image ifTrue:[
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	973	"/ bitmap images ...
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	974	imgTop := buttonOffImage.
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	975	isActive ifTrue:[
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	976	imgOn := buttonOnImage.
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	977	].
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	978	] ifFalse:[
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	979	"/ round 2D ...
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	980	imgTop := self class roundOffForm.
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	981	isActive ifTrue:[
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	982	imgOn := self class roundOnForm.
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	983	].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	984	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	985	threeD := false.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	986	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	987	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	988
4291 85df5b1dfadf changed: #drawToggleImage Michael Beyl <mb@exept.de> parents: 4167 diff changeset	989	imgTopHeight := 0.
5629 96ce049398d4 device access Claus Gittinger <cg@exept.de> parents: 5540 diff changeset	990	graphicsDevice := device.
4291 85df5b1dfadf changed: #drawToggleImage Michael Beyl <mb@exept.de> parents: 4167 diff changeset	991
4906 d07b99eecdfe class: RadioButton Stefan Vogel <sv@exept.de> parents: 4740 diff changeset	992	imgTop notNil ifTrue:[imgTop := imgTop onDevice:graphicsDevice. imgTopHeight := imgTop height].
d07b99eecdfe class: RadioButton Stefan Vogel <sv@exept.de> parents: 4740 diff changeset	993	imgBot notNil ifTrue:[imgBot := imgBot onDevice:graphicsDevice].
d07b99eecdfe class: RadioButton Stefan Vogel <sv@exept.de> parents: 4740 diff changeset	994	imgInside notNil ifTrue:[imgInside := imgInside onDevice:graphicsDevice].
d07b99eecdfe class: RadioButton Stefan Vogel <sv@exept.de> parents: 4740 diff changeset	995	imgH notNil ifTrue:[imgH := imgH onDevice:graphicsDevice].
d07b99eecdfe class: RadioButton Stefan Vogel <sv@exept.de> parents: 4740 diff changeset	996	imgOn notNil ifTrue:[imgOn := imgOn onDevice:graphicsDevice].
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	997
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	998	x := hSpace + margin.
4291 85df5b1dfadf changed: #drawToggleImage Michael Beyl <mb@exept.de> parents: 4167 diff changeset	999	y := (height - imgTopHeight) // 2.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1000
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1001	threeD ifFalse:[
3723 c6331b93035d changed #drawToggleImage - take care of non-existing images Stefan Vogel <sv@exept.de> parents: 3694 diff changeset	1002	imgTop notNil ifTrue:[
c6331b93035d changed #drawToggleImage - take care of non-existing images Stefan Vogel <sv@exept.de> parents: 3694 diff changeset	1003	self paint:fgColor.
c6331b93035d changed #drawToggleImage - take care of non-existing images Stefan Vogel <sv@exept.de> parents: 3694 diff changeset	1004	self displayForm:imgTop x:x y:y.
c6331b93035d changed #drawToggleImage - take care of non-existing images Stefan Vogel <sv@exept.de> parents: 3694 diff changeset	1005	].
c6331b93035d changed #drawToggleImage - take care of non-existing images Stefan Vogel <sv@exept.de> parents: 3694 diff changeset	1006	(isActive and:[imgOn notNil]) ifTrue:[
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	1007	self paint:(lampColor ? activeFgColor).
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1008	self displayForm:imgOn x:x y:y
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1009	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1010	] ifTrue:[
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	1011	lvl := isActive ifTrue:[buttonOnLevel]
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	1012	ifFalse:[buttonOffLevel].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1013	lvl < 0 ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1014	clrTop := shadowColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1015	clrBot := lightColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1016	] ifFalse:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1017	clrTop := lightColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1018	clrBot := shadowColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1019	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1020	self paint:clrTop.
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	1021	self displayForm:imgTop x:x y:y.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1022	self paint:clrBot.
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	1023	self displayForm:imgBot x:x y:y.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	1024
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	1025	(imgH notNil and:[halfShadowColor notNil]) ifTrue:[
0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	1026	self paint:halfShadowColor.
0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	1027	self displayForm:imgH x:x y:y
0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	1028	].
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	1029
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	1030	imgInside notNil ifTrue:[
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	1031	self paint:(View defaultViewBackgroundColor).
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	1032	self displayForm:imgInside x:x y:y
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	1033	].
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	1034	(isActive and:[imgOn notNil]) ifTrue:[
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	1035	self paint:lampColor.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	1036	self displayForm:imgOn x:x y:y
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1037	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1038	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1039
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1040	"Created: / 3.11.1997 / 12:16:30 / cg"
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	1041	"Modified: / 28.4.1999 / 14:02:00 / cg"
1696 adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	1042	!
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	1043
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	1044	drawWin95FocusFrame
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	1045	"redefined to draw the focus frame around the string-only"
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	1046
1892 110a6e458b5a checkin from browser Claus Gittinger <cg@exept.de> parents: 1882 diff changeset	1047	\|x y m1\|
1696 adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	1048
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	1049	x := labelOriginX. " margin + 1. "
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	1050	y := labelOriginY. " margin + 1. "
1892 110a6e458b5a checkin from browser Claus Gittinger <cg@exept.de> parents: 1882 diff changeset	1051	m1 := margin + 1.
1696 adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	1052	self
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	1053	displayDottedRectangleX:x
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	1054	y:y
1892 110a6e458b5a checkin from browser Claus Gittinger <cg@exept.de> parents: 1882 diff changeset	1055	width:(width - x - m1)
110a6e458b5a checkin from browser Claus Gittinger <cg@exept.de> parents: 1882 diff changeset	1056	height:(height - y - m1).
1696 adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	1057
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	1058	"Created: / 17.9.1998 / 14:16:46 / cg"
1892 110a6e458b5a checkin from browser Claus Gittinger <cg@exept.de> parents: 1882 diff changeset	1059	"Modified: / 29.4.1999 / 21:51:00 / cg"
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1060	! !
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1061
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	1062	!RadioButton methodsFor:'initialization'!
0 e6a541c1c0eb Initial revision claus parents: diff changeset	1063
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	1064	defaultControllerClass
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	1065	^ RadioButtonController
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1066	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1067
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1068	initStyle
3534 4d79fd15620e comment Claus Gittinger <cg@exept.de> parents: 2583 diff changeset	1069	"setup viewStyle specifics"
4d79fd15620e comment Claus Gittinger <cg@exept.de> parents: 2583 diff changeset	1070
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	1071	<resource: #style (#'radioButton.showLamp')>
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	1072
1583 147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	1073	buttonStyle isNil ifTrue:[
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	1074	buttonStyle := DefaultButtonStyle.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	1075	].
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	1076
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1077	super initStyle.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1078
4505 347980ba9a1b more stylesheet options Claus Gittinger <cg@exept.de> parents: 4291 diff changeset	1079	DefaultBorderWidth notNil ifTrue:[self borderWidth: DefaultBorderWidth].
2583 12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	1080	fgColor := DefaultForegroundColor ? fgColor.
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	1081	bgColor := DefaultBackgroundColor ? bgColor.
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	1082	activeBgColor := DefaultActiveBackgroundColor ? activeBgColor.
1814 bbeeed65ec84 do not highlight when entering (unless explicitely set) Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	1083	enteredBgColor := bgColor.
bbeeed65ec84 do not highlight when entering (unless explicitely set) Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	1084
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1085	buttonStyle isNil ifTrue:[
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	1086	showLamp := styleSheet at:#'radioButton.showLamp' default:showLamp.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1087	^ self
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1088	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1089
1392 d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	1090	adjust := #left.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1091	showLamp := true.
1469 d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	1092	lampColor := Color black.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1093	buttonOnLevel := DefaultActiveLevel.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1094	buttonOffLevel := DefaultPassiveLevel.
1583 147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	1095	onLevel := offLevel := 0.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1096
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1097	self level:0.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1098
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1099	(buttonStyle == #motif
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	1100	or:[buttonStyle == #round3D
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	1101	or:[buttonStyle == #image]]) ifTrue:[
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1102	activeBgColor := bgColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1103	activeFgColor := fgColor.
5125 919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1104
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	1105	buttonStyle == #image ifTrue:[
4906 d07b99eecdfe class: RadioButton Stefan Vogel <sv@exept.de> parents: 4740 diff changeset	1106	\|graphicsDevice\|
d07b99eecdfe class: RadioButton Stefan Vogel <sv@exept.de> parents: 4740 diff changeset	1107
5125 919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1108	self isNativeWidget ifFalse:[
5629 96ce049398d4 device access Claus Gittinger <cg@exept.de> parents: 5540 diff changeset	1109	graphicsDevice := device.
5125 919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1110	buttonOnImage := self class roundOnForm.
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1111	buttonOnImage notNil ifTrue:[ buttonOnImage := buttonOnImage onDevice:graphicsDevice].
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1112	buttonOffImage := self class roundOffForm.
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1113	buttonOffImage notNil ifTrue:[ buttonOffImage := buttonOffImage onDevice:graphicsDevice].
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	1114
5125 919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1115	onImage := self class activeForm.
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1116	onImage notNil ifTrue:[ onImage := onImage onDevice:graphicsDevice].
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1117	offImage := self class passiveForm.
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1118	offImage notNil ifTrue:[ offImage := offImage onDevice:graphicsDevice].
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1119	disabledOnImage := self class disabledActiveForm.
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1120	disabledOnImage notNil ifTrue:[ disabledOnImage := disabledOnImage onDevice:graphicsDevice].
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1121	disabledOffImage := self class disabledPassiveForm.
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1122	disabledOffImage notNil ifTrue:[ disabledOffImage := disabledOffImage onDevice:graphicsDevice].
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1123	enteredOnImage := self class enteredActiveForm.
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1124	enteredOnImage notNil ifTrue:[ enteredOnImage := enteredOnImage onDevice:graphicsDevice].
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1125	enteredOffImage := self class enteredPassiveForm.
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1126	enteredOffImage notNil ifTrue:[ enteredOffImage := enteredOffImage onDevice:graphicsDevice].
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1127	]
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	1128	]
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1129	] ifFalse:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1130	buttonStyle == #round2D ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1131	activeFgColor := fgColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1132	activeBgColor := bgColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1133	]
3746 9592829bf5b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3723 diff changeset	1134	].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1135
4167 e441bac0abff changed: #initStyle Claus Gittinger <cg@exept.de> parents: 3997 diff changeset	1136	"Modified: / 25-08-2010 / 22:57:37 / cg"
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1137	! !
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1138
5125 919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1139	!RadioButton methodsFor:'native widget support'!
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1140
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1141	nativeWindowType
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1142	"return a symbol describing my native window type
5540 7818c14b6026 class: SelectionInListView Claus Gittinger <cg@exept.de> parents: 5127 diff changeset	1143	(may be used internally by the device as a native window creation hint,
7818c14b6026 class: SelectionInListView Claus Gittinger <cg@exept.de> parents: 5127 diff changeset	1144	if the device supports native windows)"
5125 919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1145
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1146	self class == RadioButton ifTrue:[
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1147	^ #RadioButton
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1148	].
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1149	^ nil
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1150	! !
919fca14cfa5 class: RadioButton Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	1151
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1152	!RadioButton methodsFor:'private'!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1153
1392 d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	1154	computeLabelOrigin
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	1155	super computeLabelOrigin.
1469 d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	1156	buttonStyle notNil ifTrue:[
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	1157	labelOriginX := hSpace + 15 + hSpace
1392 d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	1158	]
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	1159
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	1160	"Modified: / 3.11.1997 / 18:17:58 / cg"
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	1161	!
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	1162
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1163	lampImageHeight
1391 33fef737601f checkin from browser Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1164	buttonStyle isNil ifTrue:[^ super lampImageHeight].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1165	^ 15
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1166
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1167	"Created: / 3.11.1997 / 14:27:27 / cg"
1391 33fef737601f checkin from browser Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1168	"Modified: / 3.11.1997 / 18:10:39 / cg"
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1169	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1170
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1171	lampImageWidth
1391 33fef737601f checkin from browser Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1172	buttonStyle isNil ifTrue:[^ super lampImageWidth].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1173	^ 15
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1174
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1175	"Created: / 3.11.1997 / 14:27:23 / cg"
1391 33fef737601f checkin from browser Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1176	"Modified: / 3.11.1997 / 18:10:50 / cg"
3997 319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1177	!
319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1178
319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1179	rawLabelSizeOf:aLogo
319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1180	"compute the extent needed to hold the label plus the lamp"
319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1181
319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1182	\|ext\|
319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1183
319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1184	ext := super rawLabelSizeOf:aLogo.
319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1185	buttonStyle notNil ifTrue:[
319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1186	^ ext + (15 @ 0)
319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1187	].
319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1188	^ ext
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1189	! !
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1190
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1191	!RadioButton methodsFor:'queries'!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1192
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1193	is3D
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1194	buttonStyle == #round2D ifTrue:[^ false.].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1195	^ super is3D
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1196
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	1197	"Created: / 3.11.1997 / 14:39:36 / cg"
0 e6a541c1c0eb Initial revision claus parents: diff changeset	1198	! !
e6a541c1c0eb Initial revision claus parents: diff changeset	1199
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	1200	!RadioButton class methodsFor:'documentation'!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	1201
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	1202	version
5540 7818c14b6026 class: SelectionInListView Claus Gittinger <cg@exept.de> parents: 5127 diff changeset	1203	^ '$Header$'
3997 319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1204	!
319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1205
319d830f9fe2 computeLabelSize refactorings Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	1206	version_CVS
5540 7818c14b6026 class: SelectionInListView Claus Gittinger <cg@exept.de> parents: 5127 diff changeset	1207	^ '$Header$'
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	1208	! !
4505 347980ba9a1b more stylesheet options Claus Gittinger <cg@exept.de> parents: 4291 diff changeset	1209

author	matilk
	Thu, 12 Mar 2020 16:49:21 +0100
changeset 6845	505264a24615
parent 6818	c0cabbabbf82
permissions	-rw-r--r--