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

author	Claus Gittinger <cg@exept.de>
	Mon, 19 Aug 2002 18:23:41 +0200
changeset 2583	12b39e2bc41c
parent 2076	e863a4bf58d4
child 3534	4d79fd15620e
permissions	-rw-r--r--