hg/stx-libwidg: RadioButton.st@0122e4e6c587 (annotated)

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

author	Claus Gittinger <cg@exept.de>
	Thu, 09 Nov 2017 20:09:30 +0100
changeset 6225	0122e4e6c587
parent 5629	96ce049398d4
child 6382	161c963b04c1
permissions	-rw-r--r--