hg/stx-libwidg: RadioButton.st@9efe3a56ff1f (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
0 e6a541c1c0eb Initial revision claus parents: diff changeset	14	Toggle subclass:#RadioButton
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	15	instanceVariableNames:'buttonStyle buttonOnLevel buttonOffLevel buttonOffImage
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	16	buttonOnImage'
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	17	classVariableNames:'DefaultButtonStyle DefaultActiveLevel DefaultPassiveLevel
2583 12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	18	DefaultForegroundColor DefaultBackgroundColor
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	19	DefaultActiveForegroundColor DefaultActiveBackgroundColor
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	20	MotifCheckBotForm MotifCheckTopForm MotifCheckInnerForm
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	21	Round3DCheckBotForm Round3DCheckTopForm Round3DCheckInnerForm
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	22	RoundHalfLightForm RoundOffForm RoundOnForm'
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	23	poolDictionaries:''
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	24	category:'Views-Interactors'
0 e6a541c1c0eb Initial revision claus parents: diff changeset	25	!
e6a541c1c0eb Initial revision claus parents: diff changeset	26
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	27	!RadioButton class methodsFor:'documentation'!
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	28
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	29	copyright
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	30	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	31	COPYRIGHT (c) 1991 by Claus Gittinger
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	32	All Rights Reserved
0 e6a541c1c0eb Initial revision claus parents: diff changeset	33
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	34	This software is furnished under a license and may be used
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	35	only in accordance with the terms of that license and with the
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	36	inclusion of the above copyright notice. This software may not
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	37	be provided or otherwise made available to, or used by, any
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	38	other person. No title to or ownership of the software is
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	39	hereby transferred.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	40	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	41	!
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	42
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	43	documentation
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	44	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	45	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	46	turn off when another RadioButton is pressed (see RadioButtonGroup).
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	written fall 91 by claus
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	49
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	50	[author:]
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	51	Claus Gittinger
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	52	"
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	53	!
df2687090a7f * empty log message * claus parents: 77 diff changeset	54
df2687090a7f * empty log message * claus parents: 77 diff changeset	55	examples
df2687090a7f * empty log message * claus parents: 77 diff changeset	56	"
119 59758ff5b841 . claus parents: 105 diff changeset	57	See more examples in RadioButtonGroup class>>examples
59758ff5b841 . claus parents: 105 diff changeset	58
59758ff5b841 . claus parents: 105 diff changeset	59	example1: one on behavior (using RadioButtons)
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	60	[exBegin]
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	61	\|top panel b group\|
df2687090a7f * empty log message * claus parents: 77 diff changeset	62
df2687090a7f * empty log message * claus parents: 77 diff changeset	63	top := StandardSystemView new.
df2687090a7f * empty log message * claus parents: 77 diff changeset	64	top extent:200@200.
df2687090a7f * empty log message * claus parents: 77 diff changeset	65
df2687090a7f * empty log message * claus parents: 77 diff changeset	66	panel := HorizontalPanelView
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	67	origin:0.0@0.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	68	corner:1.0@1.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	69	in:top.
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	70
df2687090a7f * empty log message * claus parents: 77 diff changeset	71	group := RadioButtonGroup new.
df2687090a7f * empty log message * claus parents: 77 diff changeset	72
df2687090a7f * empty log message * claus parents: 77 diff changeset	73	b := RadioButton label:'am' in:panel.
df2687090a7f * empty log message * claus parents: 77 diff changeset	74	group add:b.
df2687090a7f * empty log message * claus parents: 77 diff changeset	75
df2687090a7f * empty log message * claus parents: 77 diff changeset	76	b := RadioButton label:'fm' in:panel.
df2687090a7f * empty log message * claus parents: 77 diff changeset	77	group add:b.
df2687090a7f * empty log message * claus parents: 77 diff changeset	78
df2687090a7f * empty log message * claus parents: 77 diff changeset	79	b := RadioButton label:'off' in:panel.
df2687090a7f * empty log message * claus parents: 77 diff changeset	80	group add:b.
df2687090a7f * empty log message * claus parents: 77 diff changeset	81
1087 171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	82	group value:1.
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	83	top open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	84	[exEnd]
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	85
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	86
119 59758ff5b841 . claus parents: 105 diff changeset	87	example2: zero or one on behavior (using Toggles)
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	88	[exBegin]
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	89	\|top panel b group\|
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	90
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	91	top := StandardSystemView new.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	92	top extent:200@200.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	93
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	94	panel := HorizontalPanelView
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	95	origin:0.0@0.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	96	corner:1.0@1.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	97	in:top.
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	98
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	99	group := RadioButtonGroup new.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	100
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	101	b := Toggle label:'am' in:panel.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	102	group add:b.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	103
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	104	b := Toggle label:'fm' in:panel.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	105	group add:b.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	106
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	107	b := Toggle label:'off' in:panel.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	108	group add:b.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	109
1087 171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	110	group value:1.
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	111	top open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	112	[exEnd]
1087 171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	113
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	114
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	115	a selectionInListView and a group displaying the same value:
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	116	[exBegin]
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	117	\|top top2 panel b sv group selectionInList\|
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	118
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	119	top := StandardSystemView extent:200@200.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	120
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	121	panel := HorizontalPanelView
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	122	origin:0.0@0.0 corner:1.0@1.0 in:top.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	123
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	124	group := RadioButtonGroup new.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	125	selectionInList := SelectionInList new.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	126	selectionInList list:#('am' 'fm' 'off').
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	127	selectionInList selectionIndexHolder:group.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	128
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	129	b := Toggle label:'am' in:panel.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	130	group add:b.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	131
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	132	b := Toggle label:'fm' in:panel.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	133	group add:b.
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:'off' 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	group value:1.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	139	top open.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	140
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	141	top2 := StandardSystemView extent:200@200.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	142	sv := SelectionInListView in:top2.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	143	sv model:selectionInList.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	144	sv origin:0.0@0.0 corner:1.0@1.0.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	145	top2 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	[exEnd]
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	148	"
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	149	! !
0 e6a541c1c0eb Initial revision claus parents: diff changeset	150
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	151	!RadioButton class methodsFor:'defaults'!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	152
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	153	motifCheckBotForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	154	MotifCheckBotForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	155	MotifCheckBotForm := Form
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	156	width:15
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	157	height:15
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	158	fromArray:#[2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	159	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	160	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	161	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	162	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	163	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	164	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	165	2r00000000 2r00001110
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	166	2r01110000 2r00011100
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	167	2r00111000 2r00111000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	168	2r00011100 2r01110000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	169	2r00001110 2r11100000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	170	2r00000111 2r11000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	171	2r00000011 2r10000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	172	2r00000001 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	173	].
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	174	MotifCheckBotForm := MotifCheckBotForm onDevice:Display.
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	175	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	176	^ MotifCheckBotForm
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	177
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	178	"Created: / 3.11.1997 / 12:06:45 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	179	"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	180	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	181
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	182	motifCheckInnerForm
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	183	MotifCheckInnerForm isNil ifTrue:[
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	184	MotifCheckInnerForm := Form
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	185	width:15
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	186	height:15
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	187	fromArray:#[2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	188	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	189	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	190	2r00000001 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	191	2r00000011 2r10000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	192	2r00000111 2r11000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	193	2r00001111 2r11100000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	194	2r00011111 2r11110000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	195	2r00001111 2r11100000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	196	2r00000111 2r11000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	197	2r00000011 2r10000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	198	2r00000001 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	199	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	200	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	201	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	202	].
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	203	MotifCheckInnerForm := MotifCheckInnerForm onDevice:Display
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	204	].
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	205	^ MotifCheckInnerForm
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	206
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	207	"Created: / 3.11.1997 / 12:06:45 / cg"
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	208	"Modified: / 30.7.1998 / 21:28:45 / cg"
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	209	!
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	210
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	211	motifCheckTopForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	212	MotifCheckTopForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	213	MotifCheckTopForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	214	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	215	height:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	216	fromArray:#[2r00000001 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	217	2r00000011 2r10000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	218	2r00000111 2r11000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	219	2r00001110 2r11100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	220	2r00011100 2r01110000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	221	2r00111000 2r00111000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	222	2r01110000 2r00011100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	223	2r11100000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	224	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	225	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	226	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	227	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	228	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	229	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	230	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	231	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	232	MotifCheckTopForm := MotifCheckTopForm onDevice:Display
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	233	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	234	^ MotifCheckTopForm
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	235
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	236	"Created: / 3.11.1997 / 12:06:45 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	237	"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	238	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	239
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	240	round3DCheckBotForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	241	Round3DCheckBotForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	242	Round3DCheckBotForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	243	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	244	height:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	245	fromArray:#[2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	246	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	247	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	248	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	249	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	250	2r00000000 2r00000010
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	251	2r00000000 2r00000010
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	252	2r00000000 2r00000110
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	253	2r00000000 2r00000110
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	254	2r00000000 2r00000110
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	255	2r00000000 2r00001110
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	256	2r01110000 2r00011100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	257	2r01111000 2r00111100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	258	2r00111111 2r11111000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	259	2r00001111 2r11100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	260	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	261	Round3DCheckBotForm := Round3DCheckBotForm onDevice:Display.
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	262	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	263	^ Round3DCheckBotForm
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	264
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	265	"Created: / 3.11.1997 / 14:29:37 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	266	"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	267	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	268
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	269	round3DCheckInnerForm
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	270	Round3DCheckInnerForm isNil ifTrue:[
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	271	Round3DCheckInnerForm := Form
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	272	width:15
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	273	height:15
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	274	fromArray:#[2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	275	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	276	2r00000111 2r11000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	277	2r00001111 2r11100000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	278	2r00011111 2r11110000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	279	2r00111111 2r11111000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	280	2r00111111 2r11111000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	281	2r00111111 2r11111000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	282	2r00111111 2r11111000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	283	2r00111111 2r11111000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	284	2r00011111 2r11110000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	285	2r00001111 2r11100000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	286	2r00000111 2r11000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	287	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	288	2r00000000 2r00000000
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	289	].
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	290
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	291	Round3DCheckInnerForm := Round3DCheckInnerForm onDevice:Display.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	292	].
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	293	^ Round3DCheckInnerForm
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	294
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	295	"Created: / 3.11.1997 / 14:29:45 / cg"
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	296	"Modified: / 30.7.1998 / 21:30:47 / cg"
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	297	!
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	298
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	299	round3DCheckTopForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	300	Round3DCheckTopForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	301	Round3DCheckTopForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	302	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	303	height:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	304	fromArray:#[2r00000011 2r10000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	305	2r00011110 2r11110000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	306	2r00111000 2r00011000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	307	2r01110000 2r00001100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	308	2r01100000 2r00001100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	309	2r11000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	310	2r11000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	311	2r11000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	312	2r11000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	313	2r11000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	314	2r01100000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	315	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	316	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	317	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	318	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	319	].
1394 7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	320	"/ fromArray:#[2r00000111 2r11000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	321	"/ 2r00011110 2r11110000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	322	"/ 2r00111000 2r00111000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	323	"/ 2r01110000 2r00011100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	324	"/ 2r01100000 2r00001100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	325	"/ 2r11000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	326	"/ 2r11000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	327	"/ 2r11000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	328	"/ 2r11000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	329	"/ 2r11000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	330	"/ 2r01100000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	331	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	332	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	333	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	334	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	335	"/ ]
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	336
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	337	Round3DCheckTopForm := Round3DCheckTopForm onDevice:Display.
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	^ Round3DCheckTopForm
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	340
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	341	"Created: / 3.11.1997 / 14:29:45 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	342	"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	343	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	344
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	345	roundHalfLightForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	346	RoundHalfLightForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	347	RoundHalfLightForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	348	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	349	height:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	350	fromArray:#[2r00001100 2r01100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	351	2r00110000 2r00010000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	352	2r01100000 2r00001000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	353	2r01000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	354	2r11000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	355	2r10000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	356	2r10000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	357	2r10000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	358	2r10000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	359	2r10000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	360	2r11000000 2r00001000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	361	2r00110000 2r00010000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	362	2r00011000 2r00110000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	363	2r00000111 2r11000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	364	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	365	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	366
1394 7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	367	"/ fromArray:#[2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	368	"/ 2r00000011 2r10000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	369	"/ 2r00001000 2r00100000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	370	"/ 2r00010000 2r00010000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	371	"/ 2r00100000 2r00001000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	372	"/ 2r00000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	373	"/ 2r01000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	374	"/ 2r01000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	375	"/ 2r01000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	376	"/ 2r00000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	377	"/ 2r00100000 2r00001000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	378	"/ 2r00010000 2r00010000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	379	"/ 2r00001000 2r00100000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	380	"/ 2r00000011 2r10000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	381	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	382	"/ ]
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	383
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	384	RoundHalfLightForm := RoundHalfLightForm onDevice:Display.
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	385	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	386	^ RoundHalfLightForm
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	387
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	388	"Created: / 3.11.1997 / 18:26:40 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	389	"Modified: / 30.7.1998 / 21:31:55 / cg"
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	390	!
0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	391
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	392	roundOffForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	393	RoundOffForm isNil ifTrue:[
3689 9efe3a56ff1f * empty log message * Claus Gittinger <cg@exept.de> parents: 3688 diff changeset	394	thisContext fullPrintAll.
3688 e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	395	self updateStyleCache.
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	396	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	397	^ RoundOffForm
3688 e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	398	!
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	399
3688 e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	400	roundOffForm_old
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	401	^ Form
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	402	width:16
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	403	height:16
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	404	fromArray:#[
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	405	2r00000011 2r10000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	406	2r00001100 2r01100000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	407	2r00010000 2r00010000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	408	2r00100000 2r00001000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	409	2r01000000 2r00000100
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	410	2r01000000 2r00000100
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	411	2r10000000 2r00000010
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	412	2r10000000 2r00000010
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	413	2r10000000 2r00000010
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	414	2r01000000 2r00000100
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	415	2r01000000 2r00000100
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	416	2r00100000 2r00001000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	417	2r00010000 2r00010000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	418	2r00001100 2r01100000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	419	2r00000011 2r10000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	420	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	421	].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	422	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	423
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	424	roundOnForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	425	RoundOnForm isNil ifTrue:[
3689 9efe3a56ff1f * empty log message * Claus Gittinger <cg@exept.de> parents: 3688 diff changeset	426	thisContext fullPrintAll.
3688 e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	427	self updateStyleCache.
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	428	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	429	^ RoundOnForm
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	430
3688 e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	431	"
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	432	RoundOnForm := nil.
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	433	self updateStyleCache
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	434	"
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	435	!
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	436
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	437	roundOnForm_old
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	438	^ Form
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	439	width:16
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	440	height:16
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	441	fromArray:#[
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	442	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	443	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	444	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	445	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	446	2r00000011 2r10000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	447	2r00000111 2r11000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	448	2r00001111 2r11100000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	449	2r00001111 2r11100000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	450	2r00001111 2r11100000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	451	2r00000111 2r11000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	452	2r00000011 2r10000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	453	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	454	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	455	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	456	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	457	2r00000000 2r00000000
e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	458	].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	459	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	460
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	461	updateStyleCache
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	462	<resource: #style (#'radioButton.style'
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	463	#'radioButton.activeLevel'
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	464	#'radioButton.passiveLevel'
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	465	#'radioButton.activeImageFile'
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	466	#'radioButton.activeImage'
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	467	#'radioButton.passiveImageFile'
2583 12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	468	#'radioButton.passiveImage'
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	469	#'radioButton.foregroundColor'
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	470	#'radioButton.backgroundColor'
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	471	#'radioButton.activeForegroundColor'
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	472	#'radioButton.activeBackgroundColor'
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	473	)>
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	474
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	475	\|l f\|
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	476
3689 9efe3a56ff1f * empty log message * Claus Gittinger <cg@exept.de> parents: 3688 diff changeset	477	thisContext fullPrintAll.
3668 b7da9e492ee6 changed #initialize - set font Stefan Vogel <sv@exept.de> parents: 3601 diff changeset	478	DefaultFont := StyleSheet fontAt:'label.font'.
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	479	DefaultButtonStyle := StyleSheet at:#'radioButton.style'.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	480	l := -1.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	481	DefaultButtonStyle == #round2D ifTrue:[l := 0].
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	482	DefaultActiveLevel := StyleSheet at:#'radioButton.activeLevel' default:l.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	483	DefaultButtonStyle == #motif ifTrue:[l := 1].
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	484	DefaultPassiveLevel := StyleSheet at:#'radioButton.passiveLevel' default:l.
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	485
2583 12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	486	DefaultForegroundColor := StyleSheet at:#'radioButton.foregroundColor'.
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	487	DefaultBackgroundColor := StyleSheet at:#'radioButton.backgroundColor'.
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	488
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	489	DefaultActiveForegroundColor := StyleSheet at:#'radioButton.activeForegroundColor'.
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	490	DefaultActiveBackgroundColor := StyleSheet at:#'radioButton.activeBackgroundColor'.
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	491
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	492	RoundOnForm := RoundOffForm := nil.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	493
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	494	f := StyleSheet at:#'radioButton.activeImageFile'.
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	495	f notNil ifTrue:[
2076 e863a4bf58d4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	496	f := Smalltalk imageFromFileNamed:f forClass:self.
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	497	] ifFalse:[
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	498	f := StyleSheet at:#'radioButton.activeImage'.
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	499	].
3687 48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	500	f isNil ifTrue:[
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	501	RoundOffForm := StyleSheet isWindowsXPStyle
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	502	ifTrue:[ self radioOnIcon_xp ]
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	503	ifFalse:[ self radioOnIcon_w95 ]
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	504	].
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	505	f notNil ifTrue:[
3688 e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	506	"/ RoundOnForm := self roundOnForm_old.
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	507	RoundOnForm := f onDevice:Display
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	508	].
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	509
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	510	f := StyleSheet at:#'radioButton.passiveImageFile'.
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	511	f notNil ifTrue:[
2076 e863a4bf58d4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	512	f := Smalltalk imageFromFileNamed:f forClass:self.
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	513	] ifFalse:[
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	514	f := StyleSheet at:#'radioButton.passiveImage'.
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	515	].
3687 48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	516	f isNil ifTrue:[
3688 e266cdde958a * empty log message * Claus Gittinger <cg@exept.de> parents: 3687 diff changeset	517	"/ RoundOffForm := self roundOffForm_old.
3687 48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	518	RoundOffForm := StyleSheet isWindowsXPStyle
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	519	ifTrue:[ self radioOffIcon_xp ]
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	520	ifFalse:[ self radioOffIcon_w95 ]
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	521	].
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	522
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	523	f notNil ifTrue:[
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	524	RoundOffForm := f onDevice:Display
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	525	].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	526
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	527	"
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	528	self updateStyleCache
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	529	"
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	530
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	531	"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	532	! !
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	533
3687 48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	534	!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	535
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	536	radioOffIcon_w95
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	537	"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	538	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	539
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	540	"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	541	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	542
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	543	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	544	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	545	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	546	Icon flushCachedIcons
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	547	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	548
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	549	<resource: #image>
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	550
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	551	^Icon
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	552	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	553	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	554	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	555	@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	556	!
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	557
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	558	radioOffIcon_xp
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	559	"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	560	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	561
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	562	"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	563	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	564
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	565	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	566	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	567	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	568	Icon flushCachedIcons
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	569	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	570
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	571	<resource: #image>
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	572
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	573	^Icon
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	574	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	575	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	576	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	577	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	578	!
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	579
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	580	radioOnIcon_w95
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	581	"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	582	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	583
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	584	"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	585	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	586
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	587	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	588	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	589	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	590	Icon flushCachedIcons
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	591	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	592
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	593	<resource: #image>
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	594
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	595	^Icon
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	596	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	597	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	598	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	599	@@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	600	!
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	601
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	602	radioOnIcon_xp
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	603	"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	604	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	605
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	606	"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	607	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	608
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	609	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	610	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	611	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	612	Icon flushCachedIcons
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	613	"
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	614
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	615	<resource: #image>
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	616
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	617	^Icon
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	618	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	619	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	620	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	621	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	622	! !
48b9b4e7ed08 to ensure bitmap is always available: include it in the binary Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	623
1583 147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	624	!RadioButton methodsFor:'accessing'!
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	625
3601 650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	626	allViewBackground:something if:condition
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	627	(condition value:self) ifTrue:[
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	628	self backgroundColor:something.
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	629
3601 650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	630	(buttonStyle == #motif
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	631	or:[buttonStyle == #round3D
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	632	or:[buttonStyle == #image
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	633	or:[buttonStyle == #round2D]]]) ifTrue:[
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	634	enteredBgColor := something.
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	635	activeBgColor := something.
650eb2507527 allViewBackground: with optional condition sr parents: 3534 diff changeset	636	]
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	637	]
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	638	!
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	639
1583 147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	640	forceRadioButtonStyle
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	641	"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	642	even if the styleSheet defaults differently.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	643	(as in IRIS style)"
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	644
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	645	buttonStyle isNil ifTrue:[
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	646	styleSheet is3D ifTrue:[
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	647	buttonStyle := #round3D.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	648	activeBgColor := bgColor.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	649	activeFgColor := fgColor.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	650	] ifFalse:[
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	651	buttonStyle := #round2D.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	652	activeFgColor := fgColor.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	653	activeBgColor := bgColor.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	654	].
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	655	buttonOnLevel := DefaultActiveLevel.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	656	buttonOffLevel := DefaultPassiveLevel.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	657	onLevel := offLevel := 0.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	658	self level:0
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	659	]
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	660
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	661	"Modified: / 18.6.1998 / 21:19:01 / cg"
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	662	"Created: / 18.6.1998 / 21:23:58 / cg"
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	663	! !
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	664
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	665	!RadioButton methodsFor:'drawing'!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	666
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	667	drawToggleImage
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	668	"drawing of the radio image is done here."
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	669
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	670	\|x y clrTop clrBot imgTop imgBot imgInside imgH imgOn threeD lvl
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	671	isActive\|
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	672
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	673	buttonStyle isNil ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	674	^ super drawToggleImage
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	675	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	676
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	677	isActive := controller pressed.
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	678
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	679	threeD := true.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	680	buttonStyle == #motif ifTrue:[
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	681	"/ square rotated by 45 degrees ...
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	682	imgTop := self class motifCheckTopForm.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	683	imgBot := self class motifCheckBotForm.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	684	imgInside := self class motifCheckInnerForm.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	685	] ifFalse:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	686	buttonStyle == #round3D ifTrue:[
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	687	"/ round 3D button ...
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	688	imgTop := self class round3DCheckTopForm.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	689	imgBot := self class round3DCheckBotForm.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	690	imgInside := self class round3DCheckInnerForm.
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	691	imgH := self class roundHalfLightForm.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	692	buttonOnLevel == buttonOffLevel ifTrue:[
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	693	isActive ifTrue:[
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	694	imgOn := self class roundOnForm.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	695	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	696	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	697	] ifFalse:[
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	698	buttonStyle == #image ifTrue:[
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	699	"/ bitmap images ...
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	700	imgTop := buttonOffImage.
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	701	isActive ifTrue:[
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	702	imgOn := buttonOnImage.
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	703	].
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	704	] ifFalse:[
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	705	"/ round 2D ...
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	706	imgTop := self class roundOffForm.
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	707	isActive ifTrue:[
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	708	imgOn := self class roundOnForm.
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	709	].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	710	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	711	threeD := false.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	712	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	713	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	714
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	715	imgTop notNil ifTrue:[imgTop := imgTop onDevice:device].
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	716	imgBot notNil ifTrue:[imgBot := imgBot onDevice:device].
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	717	imgInside notNil ifTrue:[imgInside := imgInside onDevice:device].
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	718	imgH notNil ifTrue:[imgH := imgH onDevice:device].
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	719	imgOn notNil ifTrue:[imgOn := imgOn onDevice:device].
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	720
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	721	x := hSpace + margin.
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	722	y := (height - imgTop height) // 2.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	723
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	724	threeD ifFalse:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	725	self paint:fgColor.
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	726	self displayForm:imgTop x:x y:y.
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	727	isActive ifTrue:[
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	728	self paint:(lampColor ? activeFgColor).
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	729	self displayForm:imgOn x:x y:y
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	730	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	731	] ifTrue:[
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	732	lvl := isActive ifTrue:[buttonOnLevel]
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	733	ifFalse:[buttonOffLevel].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	734	lvl < 0 ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	735	clrTop := shadowColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	736	clrBot := lightColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	737	] ifFalse:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	738	clrTop := lightColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	739	clrBot := shadowColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	740	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	741	self paint:clrTop.
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	742	self displayForm:imgTop x:x y:y.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	743	self paint:clrBot.
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	744	self displayForm:imgBot x:x y:y.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	745
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	746	(imgH notNil and:[halfShadowColor notNil]) ifTrue:[
0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	747	self paint:halfShadowColor.
0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	748	self displayForm:imgH x:x y:y
0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	749	].
1954 dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	750
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	751	imgInside notNil ifTrue:[
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	752	self paint:(View defaultViewBackgroundColor).
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	753	self displayForm:imgInside x:x y:y
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	754	].
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	755	(isActive and:[imgOn notNil]) ifTrue:[
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	756	self paint:lampColor.
dc1e397855dc allow for allViewBackground to be set. Claus Gittinger <cg@exept.de> parents: 1892 diff changeset	757	self displayForm:imgOn x:x y:y
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	758	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	759	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	760
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	761	"Created: / 3.11.1997 / 12:16:30 / cg"
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	762	"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	763	!
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	764
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	765	drawWin95FocusFrame
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	766	"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	767
1892 110a6e458b5a checkin from browser Claus Gittinger <cg@exept.de> parents: 1882 diff changeset	768	\|x y m1\|
1696 adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	769
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	770	x := labelOriginX. " margin + 1. "
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	771	y := labelOriginY. " margin + 1. "
1892 110a6e458b5a checkin from browser Claus Gittinger <cg@exept.de> parents: 1882 diff changeset	772	m1 := margin + 1.
1696 adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	773	self
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	774	displayDottedRectangleX:x
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	775	y:y
1892 110a6e458b5a checkin from browser Claus Gittinger <cg@exept.de> parents: 1882 diff changeset	776	width:(width - x - m1)
110a6e458b5a checkin from browser Claus Gittinger <cg@exept.de> parents: 1882 diff changeset	777	height:(height - y - m1).
1696 adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	778
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	779	"Created: / 17.9.1998 / 14:16:46 / cg"
1892 110a6e458b5a checkin from browser Claus Gittinger <cg@exept.de> parents: 1882 diff changeset	780	"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	781	! !
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	782
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	783	!RadioButton methodsFor:'initialization'!
0 e6a541c1c0eb Initial revision claus parents: diff changeset	784
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	785	defaultControllerClass
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	786	^ RadioButtonController
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	787	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	788
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	789	initStyle
3534 4d79fd15620e comment Claus Gittinger <cg@exept.de> parents: 2583 diff changeset	790	"setup viewStyle specifics"
4d79fd15620e comment Claus Gittinger <cg@exept.de> parents: 2583 diff changeset	791
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	792	<resource: #style (#'radioButton.showLamp')>
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	793
1583 147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	794	buttonStyle isNil ifTrue:[
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	795	buttonStyle := DefaultButtonStyle.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	796	].
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	797
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	798	super initStyle.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	799
2583 12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	800	fgColor := DefaultForegroundColor ? fgColor.
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	801	bgColor := DefaultBackgroundColor ? bgColor.
12b39e2bc41c more stuff defined in styleSheet Claus Gittinger <cg@exept.de> parents: 2076 diff changeset	802	activeBgColor := DefaultActiveBackgroundColor ? activeBgColor.
1814 bbeeed65ec84 do not highlight when entering (unless explicitely set) Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	803	enteredBgColor := bgColor.
bbeeed65ec84 do not highlight when entering (unless explicitely set) Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	804
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	805	buttonStyle isNil ifTrue:[
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	806	showLamp := styleSheet at:#'radioButton.showLamp' default:showLamp.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	807	^ self
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	808	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	809
1392 d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	810	adjust := #left.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	811	showLamp := true.
1469 d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	812	lampColor := Color black.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	813	buttonOnLevel := DefaultActiveLevel.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	814	buttonOffLevel := DefaultPassiveLevel.
1583 147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	815	onLevel := offLevel := 0.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	816
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	817	self level:0.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	818
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	819	(buttonStyle == #motif
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	820	or:[buttonStyle == #round3D
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	821	or:[buttonStyle == #image]]) ifTrue:[
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	822	activeBgColor := bgColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	823	activeFgColor := fgColor.
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	824	buttonStyle == #image ifTrue:[
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	825	buttonOnImage := self class roundOnForm onDevice:device.
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	826	buttonOffImage := self class roundOffForm onDevice:device.
c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	827	]
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	828	] ifFalse:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	829	buttonStyle == #round2D ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	830	activeFgColor := fgColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	831	activeBgColor := bgColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	832	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	833	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	834
1882 c042adbad29e nicer win95 look Claus Gittinger <cg@exept.de> parents: 1814 diff changeset	835	"Modified: / 28.4.1999 / 14:05:35 / cg"
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	836	! !
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	837
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	838	!RadioButton methodsFor:'private'!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	839
1392 d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	840	computeLabelOrigin
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	841	super computeLabelOrigin.
1469 d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	842	buttonStyle notNil ifTrue:[
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	843	labelOriginX := hSpace + 15 + hSpace
1392 d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	844	]
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	845
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	846	"Modified: / 3.11.1997 / 18:17:58 / cg"
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	847	!
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	848
1469 d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	849	computeLabelSize
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	850	"compute the extent needed to hold the label plus the lamp"
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	851
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	852	super computeLabelSize.
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	853	buttonStyle notNil ifTrue:[
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	854	labelWidth := labelWidth + 15
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	855	]
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	856	!
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	857
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	858	lampImageHeight
1391 33fef737601f checkin from browser Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	859	buttonStyle isNil ifTrue:[^ super lampImageHeight].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	860	^ 15
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	861
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	862	"Created: / 3.11.1997 / 14:27:27 / cg"
1391 33fef737601f checkin from browser Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	863	"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	864	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	865
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	866	lampImageWidth
1391 33fef737601f checkin from browser Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	867	buttonStyle isNil ifTrue:[^ super lampImageWidth].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	868	^ 15
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	869
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	870	"Created: / 3.11.1997 / 14:27:23 / cg"
1391 33fef737601f checkin from browser Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	871	"Modified: / 3.11.1997 / 18:10:50 / cg"
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	872	! !
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	!RadioButton methodsFor:'queries'!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	875
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	876	is3D
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	877	buttonStyle == #round2D ifTrue:[^ false.].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	878	^ super is3D
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	"Created: / 3.11.1997 / 14:39:36 / cg"
0 e6a541c1c0eb Initial revision claus parents: diff changeset	881	! !
e6a541c1c0eb Initial revision claus parents: diff changeset	882
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	883	!RadioButton class methodsFor:'documentation'!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	884
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	885	version
3689 9efe3a56ff1f * empty log message * Claus Gittinger <cg@exept.de> parents: 3688 diff changeset	886	^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.40 2008-08-06 09:36:00 cg Exp $'
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	887	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 06 Aug 2008 11:36:00 +0200
changeset 3689	9efe3a56ff1f
parent 3688	e266cdde958a
child 3693	e8e00489ec10
permissions	-rw-r--r--