hg/stx-libwidg: RadioButton.st@60be865bd75a (annotated)

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

author	Claus Gittinger <cg@exept.de>
	Sat, 11 May 2019 12:15:03 +0200
changeset 6578	60be865bd75a
parent 6382	161c963b04c1
child 6818	c0cabbabbf82
permissions	-rw-r--r--