hg/stx-libwidg: RadioButton.st@bbeeed65ec84 (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
e6a541c1c0eb Initial revision claus parents: diff changeset	13	Toggle subclass:#RadioButton
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	14	instanceVariableNames:'buttonStyle buttonOnLevel buttonOffLevel'
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	15	classVariableNames:'DefaultButtonStyle DefaultActiveLevel DefaultPassiveLevel
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	16	MotifCheckBotForm MotifCheckTopForm Round3DCheckBotForm
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	17	Round3DCheckTopForm RoundHalfLightForm RoundOffForm RoundOnForm'
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	18	poolDictionaries:''
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	19	category:'Views-Interactors'
0 e6a541c1c0eb Initial revision claus parents: diff changeset	20	!
e6a541c1c0eb Initial revision claus parents: diff changeset	21
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	22	!RadioButton class methodsFor:'documentation'!
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	23
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	24	copyright
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	25	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	26	COPYRIGHT (c) 1991 by Claus Gittinger
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	27	All Rights Reserved
0 e6a541c1c0eb Initial revision claus parents: diff changeset	28
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	29	This software is furnished under a license and may be used
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	30	only in accordance with the terms of that license and with the
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	31	inclusion of the above copyright notice. This software may not
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	32	be provided or otherwise made available to, or used by, any
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	33	other person. No title to or ownership of the software is
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	34	hereby transferred.
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	35	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	36	!
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	37
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	38	documentation
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	39	"
4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	40	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	41	turn off when another RadioButton is pressed (see RadioButtonGroup).
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	written fall 91 by claus
585 8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	44
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	45	[author:]
8f395aba0173 documentation Claus Gittinger <cg@exept.de> parents: 205 diff changeset	46	Claus Gittinger
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	47	"
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	48	!
df2687090a7f * empty log message * claus parents: 77 diff changeset	49
df2687090a7f * empty log message * claus parents: 77 diff changeset	50	examples
df2687090a7f * empty log message * claus parents: 77 diff changeset	51	"
119 59758ff5b841 . claus parents: 105 diff changeset	52	See more examples in RadioButtonGroup class>>examples
59758ff5b841 . claus parents: 105 diff changeset	53
59758ff5b841 . claus parents: 105 diff changeset	54	example1: one on behavior (using RadioButtons)
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	55	[exBegin]
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	56	\|top panel b group\|
df2687090a7f * empty log message * claus parents: 77 diff changeset	57
df2687090a7f * empty log message * claus parents: 77 diff changeset	58	top := StandardSystemView new.
df2687090a7f * empty log message * claus parents: 77 diff changeset	59	top extent:200@200.
df2687090a7f * empty log message * claus parents: 77 diff changeset	60
df2687090a7f * empty log message * claus parents: 77 diff changeset	61	panel := HorizontalPanelView
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	62	origin:0.0@0.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	63	corner:1.0@1.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	64	in:top.
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	65
df2687090a7f * empty log message * claus parents: 77 diff changeset	66	group := RadioButtonGroup new.
df2687090a7f * empty log message * claus parents: 77 diff changeset	67
df2687090a7f * empty log message * claus parents: 77 diff changeset	68	b := RadioButton label:'am' in:panel.
df2687090a7f * empty log message * claus parents: 77 diff changeset	69	group add:b.
df2687090a7f * empty log message * claus parents: 77 diff changeset	70
df2687090a7f * empty log message * claus parents: 77 diff changeset	71	b := RadioButton label:'fm' in:panel.
df2687090a7f * empty log message * claus parents: 77 diff changeset	72	group add:b.
df2687090a7f * empty log message * claus parents: 77 diff changeset	73
df2687090a7f * empty log message * claus parents: 77 diff changeset	74	b := RadioButton label:'off' 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
1087 171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	77	group value:1.
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	78	top open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	79	[exEnd]
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	80
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	81
119 59758ff5b841 . claus parents: 105 diff changeset	82	example2: zero or one on behavior (using Toggles)
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	83	[exBegin]
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	84	\|top panel b group\|
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	85
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	86	top := StandardSystemView new.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	87	top extent:200@200.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	88
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	89	panel := HorizontalPanelView
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	90	origin:0.0@0.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	91	corner:1.0@1.0
86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	92	in:top.
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	93
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	94	group := RadioButtonGroup new.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	95
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	96	b := Toggle label:'am' in:panel.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	97	group add:b.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	98
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	99	b := Toggle label:'fm' in:panel.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	100	group add:b.
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	101
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	102	b := Toggle label:'off' 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
1087 171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	105	group value:1.
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	106	top open
593 86dd024ed773 examples Claus Gittinger <cg@exept.de> parents: 585 diff changeset	107	[exEnd]
1087 171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	108
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	109
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	110	a selectionInListView and a group displaying the same value:
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	111	[exBegin]
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	112	\|top top2 panel b sv group selectionInList\|
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	113
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	114	top := StandardSystemView extent:200@200.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	115
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	116	panel := HorizontalPanelView
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	117	origin:0.0@0.0 corner:1.0@1.0 in:top.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	118
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	119	group := RadioButtonGroup new.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	120	selectionInList := SelectionInList new.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	121	selectionInList list:#('am' 'fm' 'off').
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	122	selectionInList selectionIndexHolder:group.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	123
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	124	b := Toggle label:'am' in:panel.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	125	group add:b.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	126
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	127	b := Toggle label:'fm' in:panel.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	128	group add:b.
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:'off' 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	group value:1.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	134	top open.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	135
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	136	top2 := StandardSystemView extent:200@200.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	137	sv := SelectionInListView in:top2.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	138	sv model:selectionInList.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	139	sv origin:0.0@0.0 corner:1.0@1.0.
171cdcfe0274 example Claus Gittinger <cg@exept.de> parents: 593 diff changeset	140	top2 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	[exEnd]
86 df2687090a7f * empty log message * claus parents: 77 diff changeset	143	"
38 4b9b70b2cc87 2.10.3 pre-final version claus parents: 5 diff changeset	144	! !
0 e6a541c1c0eb Initial revision claus parents: diff changeset	145
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	146	!RadioButton class methodsFor:'defaults'!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	147
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	148	motifCheckBotForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	149	MotifCheckBotForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	150	MotifCheckBotForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	151	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	152	height:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	153	fromArray:#[2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	154	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	155	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	156	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	157	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	158	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	159	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	160	2r00000000 2r00001110
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	161	2r01110000 2r00011100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	162	2r00111000 2r00111000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	163	2r00011100 2r01110000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	164	2r00001110 2r11100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	165	2r00000111 2r11000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	166	2r00000011 2r10000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	167	2r00000001 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	168	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	169	MotifCheckBotForm := MotifCheckBotForm onDevice:Display.
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	170	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	171	^ MotifCheckBotForm
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	172
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	173	"Created: / 3.11.1997 / 12:06:45 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	174	"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	175	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	176
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	177	motifCheckTopForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	178	MotifCheckTopForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	179	MotifCheckTopForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	180	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	181	height:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	182	fromArray:#[2r00000001 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	183	2r00000011 2r10000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	184	2r00000111 2r11000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	185	2r00001110 2r11100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	186	2r00011100 2r01110000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	187	2r00111000 2r00111000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	188	2r01110000 2r00011100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	189	2r11100000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	190	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	191	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	192	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	193	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	194	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	195	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	196	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	197	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	198	MotifCheckTopForm := MotifCheckTopForm onDevice:Display
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	199	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	200	^ MotifCheckTopForm
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	201
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	202	"Created: / 3.11.1997 / 12:06:45 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	203	"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	204	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	205
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	206	round3DCheckBotForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	207	Round3DCheckBotForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	208	Round3DCheckBotForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	209	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	210	height:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	211	fromArray:#[2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	212	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	213	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	214	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	215	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	216	2r00000000 2r00000010
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	217	2r00000000 2r00000010
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	218	2r00000000 2r00000110
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	219	2r00000000 2r00000110
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	220	2r00000000 2r00000110
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	221	2r00000000 2r00001110
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	222	2r01110000 2r00011100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	223	2r01111000 2r00111100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	224	2r00111111 2r11111000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	225	2r00001111 2r11100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	226	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	227	Round3DCheckBotForm := Round3DCheckBotForm onDevice:Display.
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	228	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	229	^ Round3DCheckBotForm
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	230
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	231	"Created: / 3.11.1997 / 14:29:37 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	232	"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	233	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	234
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	235	round3DCheckTopForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	236	Round3DCheckTopForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	237	Round3DCheckTopForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	238	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	239	height:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	240	fromArray:#[2r00000011 2r10000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	241	2r00011110 2r11110000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	242	2r00111000 2r00011000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	243	2r01110000 2r00001100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	244	2r01100000 2r00001100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	245	2r11000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	246	2r11000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	247	2r11000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	248	2r11000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	249	2r11000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	250	2r01100000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	251	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	252	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	253	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	254	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	255	].
1394 7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	256	"/ fromArray:#[2r00000111 2r11000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	257	"/ 2r00011110 2r11110000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	258	"/ 2r00111000 2r00111000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	259	"/ 2r01110000 2r00011100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	260	"/ 2r01100000 2r00001100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	261	"/ 2r11000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	262	"/ 2r11000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	263	"/ 2r11000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	264	"/ 2r11000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	265	"/ 2r11000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	266	"/ 2r01100000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	267	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	268	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	269	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	270	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	271	"/ ]
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	272
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	273	Round3DCheckTopForm := Round3DCheckTopForm onDevice:Display.
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	274	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	275	^ Round3DCheckTopForm
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	276
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	277	"Created: / 3.11.1997 / 14:29:45 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	278	"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	279	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	280
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	281	roundHalfLightForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	282	RoundHalfLightForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	283	RoundHalfLightForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	284	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	285	height:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	286	fromArray:#[2r00001100 2r01100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	287	2r00110000 2r00010000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	288	2r01100000 2r00001000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	289	2r01000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	290	2r11000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	291	2r10000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	292	2r10000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	293	2r10000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	294	2r10000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	295	2r10000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	296	2r11000000 2r00001000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	297	2r00110000 2r00010000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	298	2r00011000 2r00110000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	299	2r00000111 2r11000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	300	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	301	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	302
1394 7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	303	"/ fromArray:#[2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	304	"/ 2r00000011 2r10000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	305	"/ 2r00001000 2r00100000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	306	"/ 2r00010000 2r00010000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	307	"/ 2r00100000 2r00001000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	308	"/ 2r00000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	309	"/ 2r01000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	310	"/ 2r01000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	311	"/ 2r01000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	312	"/ 2r00000000 2r00000100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	313	"/ 2r00100000 2r00001000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	314	"/ 2r00010000 2r00010000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	315	"/ 2r00001000 2r00100000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	316	"/ 2r00000011 2r10000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	317	"/ 2r00000000 2r00000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	318	"/ ]
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	319
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	320	RoundHalfLightForm := RoundHalfLightForm onDevice:Display.
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	321	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	322	^ RoundHalfLightForm
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	323
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	324	"Created: / 3.11.1997 / 18:26:40 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	325	"Modified: / 30.7.1998 / 21:31:55 / cg"
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	326	!
0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	327
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	328	roundOffForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	329	RoundOffForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	330	RoundOffForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	331	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	332	height:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	333	fromArray:#[2r00000011 2r10000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	334	2r00001100 2r01100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	335	2r00010000 2r00010000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	336	2r00100000 2r00001000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	337	2r01000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	338	2r01000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	339	2r10000000 2r00000010
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	340	2r10000000 2r00000010
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	341	2r10000000 2r00000010
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	342	2r01000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	343	2r01000000 2r00000100
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	344	2r00100000 2r00001000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	345	2r00010000 2r00010000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	346	2r00001100 2r01100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	347	2r00000011 2r10000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	348	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	349
1394 7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	350	"/ fromArray:#[2r00000011 2r10000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	351	"/ 2r00001111 2r11100000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	352	"/ 2r00111100 2r01111000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	353	"/ 2r00110000 2r00011000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	354	"/ 2r01100000 2r00001100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	355	"/ 2r01100000 2r00001100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	356	"/ 2r11000000 2r00000110
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	357	"/ 2r11000000 2r00000110
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	358	"/ 2r11000000 2r00000110
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	359	"/ 2r01100000 2r00001100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	360	"/ 2r01100000 2r00001100
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	361	"/ 2r00110000 2r00011000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	362	"/ 2r00111100 2r01111000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	363	"/ 2r00001111 2r11100000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	364	"/ 2r00000011 2r10000000
7db0ce820be2 beautified 3D bitmaps (OS/2 style) Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	365	"/ ]
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	366	RoundOffForm := RoundOffForm onDevice:Display.
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	367	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	368	^ RoundOffForm
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	369
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	370	"Created: / 3.11.1997 / 12:41:13 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	371	"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	372	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	373
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	374	roundOnForm
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	375	RoundOnForm isNil ifTrue:[
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	376	RoundOnForm := Form
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	377	width:15
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	378	height:15
1405 366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	379	"/ fromArray:#[2r00000000 2r00000000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	380	"/ 2r00000000 2r00000000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	381	"/ 2r00000000 2r00000000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	382	"/ 2r00000111 2r11000000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	383	"/ 2r00001111 2r11100000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	384	"/ 2r00011111 2r11110000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	385	"/ 2r00011111 2r11110000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	386	"/ 2r00011111 2r11110000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	387	"/ 2r00011111 2r11110000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	388	"/ 2r00011111 2r11110000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	389	"/ 2r00001111 2r11100000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	390	"/ 2r00000111 2r11000000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	391	"/ 2r00000000 2r00000000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	392	"/ 2r00000000 2r00000000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	393	"/ 2r00000000 2r00000000
366bac893ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	394	"/ ]
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	395	fromArray:#[2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	396	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	397	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	398	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	399	2r00000011 2r10000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	400	2r00000111 2r11000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	401	2r00001111 2r11100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	402	2r00001111 2r11100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	403	2r00001111 2r11100000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	404	2r00000111 2r11000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	405	2r00000011 2r10000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	406	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	407	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	408	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	409	2r00000000 2r00000000
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	410	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	411	RoundOnForm := RoundOnForm onDevice:Display.
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	412	].
21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	413	^ RoundOnForm
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	414
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	415	"Created: / 3.11.1997 / 12:41:17 / cg"
1629 21481cd942f9 cache forms - avoid recreation. Claus Gittinger <cg@exept.de> parents: 1583 diff changeset	416	"Modified: / 30.7.1998 / 21:33:39 / cg"
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	417	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	418
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	419	updateStyleCache
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	420	\|l\|
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	421
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	422	DefaultButtonStyle := StyleSheet at:'radioButton.style'.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	423	l := -1.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	424	DefaultButtonStyle == #round2D ifTrue:[l := 0].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	425	DefaultActiveLevel := StyleSheet at:'radioButton.activeLevel' default:l.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	426	DefaultButtonStyle == #motif ifTrue:[l := 1].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	427	DefaultPassiveLevel := StyleSheet at:'radioButton.passivelLevel' default:l.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	428
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	429	"
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	430	self updateStyleCache
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	431	"
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	432
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	433	"Modified: / 3.11.1997 / 14:20:21 / cg"
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	434	! !
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	435
1583 147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	436	!RadioButton methodsFor:'accessing'!
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	437
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	438	forceRadioButtonStyle
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	439	"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	440	even if the styleSheet defaults differently.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	441	(as in IRIS style)"
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	442
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	443	buttonStyle isNil ifTrue:[
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	444	styleSheet is3D ifTrue:[
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	445	buttonStyle := #round3D.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	446	activeBgColor := bgColor.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	447	activeFgColor := fgColor.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	448	] ifFalse:[
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	449	buttonStyle := #round2D.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	450	activeFgColor := fgColor.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	451	activeBgColor := bgColor.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	452	].
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	453	buttonOnLevel := DefaultActiveLevel.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	454	buttonOffLevel := DefaultPassiveLevel.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	455	onLevel := offLevel := 0.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	456	self level:0
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	457	]
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	458
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	459	"Modified: / 18.6.1998 / 21:19:01 / cg"
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	460	"Created: / 18.6.1998 / 21:23:58 / cg"
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	461	! !
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	462
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	463	!RadioButton methodsFor:'drawing'!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	464
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	465	drawToggleImage
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	466	"drawing of the radio image is done here."
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	467
1809 111f603c0a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	468	\|x y clrTop clrBot img1 img2 imgH imgOn threeD lvl\|
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	469
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	470	buttonStyle isNil ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	471	^ super drawToggleImage
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	472	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	473
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	474	threeD := true.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	475	buttonStyle == #motif ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	476	img1 := self class motifCheckTopForm onDevice:device.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	477	img2 := self class motifCheckBotForm onDevice:device.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	478	] ifFalse:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	479	buttonStyle == #round3D ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	480	img1 := self class round3DCheckTopForm onDevice:device.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	481	img2 := self class round3DCheckBotForm onDevice:device.
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	482	imgH := self class roundHalfLightForm onDevice:device.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	483	buttonOnLevel == buttonOffLevel ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	484	controller pressed ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	485	imgOn := self class roundOnForm onDevice:device.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	486	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	487	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	488	] ifFalse:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	489	img1 := self class roundOffForm onDevice:device.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	490	controller pressed ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	491	imgOn := self class roundOnForm onDevice:device.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	492	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	493	threeD := false.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	494	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	495	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	496
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	497	x := hSpace + margin.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	498	y := (height - img1 height) // 2.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	499
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	500	threeD ifFalse:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	501	self paint:fgColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	502	self displayForm:img1 x:x y:y.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	503	controller pressed ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	504	self paint:activeFgColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	505	self displayForm:imgOn x:x y:y
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	506	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	507	] ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	508	controller pressed ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	509	lvl := buttonOnLevel
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	510	] ifFalse:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	511	lvl := buttonOffLevel.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	512	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	513	lvl < 0 ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	514	clrTop := shadowColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	515	clrBot := lightColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	516	] ifFalse:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	517	clrTop := lightColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	518	clrBot := shadowColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	519	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	520	self paint:clrTop.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	521	self displayForm:img1 x:x y:y.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	522	self paint:clrBot.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	523	self displayForm:img2 x:x y:y.
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	524	(imgH notNil and:[halfShadowColor notNil]) ifTrue:[
0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	525	self paint:halfShadowColor.
0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	526	self displayForm:imgH x:x y:y
0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	527	].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	528	controller pressed ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	529	imgOn notNil ifTrue:[
1469 d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	530	self paint:lampColor.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	531	self displayForm:imgOn x:x y:y
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	532	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	533	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	534	]
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	535
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	536	"Created: / 3.11.1997 / 12:16:30 / cg"
1393 0d6edc6e063b nicer 3D round button Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	537	"Modified: / 3.11.1997 / 18:28:43 / cg"
1696 adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	538	!
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	539
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	540	drawWin95FocusFrame
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	541	"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	542
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	543	\|x y\|
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	544
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	545	x := labelOriginX. " margin + 1. "
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	546	y := labelOriginY. " margin + 1. "
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	547	self
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	548	displayDottedRectangleX:x
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	549	y:y
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	550	width:(width - x - margin - 1)
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	551	height:(height - y - margin - 1).
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	552
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	553	"Created: / 17.9.1998 / 14:16:46 / cg"
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	554	"Modified: / 18.9.1998 / 16:56:24 / cg"
adfae835bac8 draw the focus frame around the string only Claus Gittinger <cg@exept.de> parents: 1629 diff changeset	555
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	556	! !
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	557
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	558	!RadioButton methodsFor:'initialization'!
0 e6a541c1c0eb Initial revision claus parents: diff changeset	559
105 3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	560	defaultControllerClass
3d064ba4a0cc * empty log message * claus parents: 86 diff changeset	561	^ RadioButtonController
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	562	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	563
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	564	initStyle
1583 147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	565	buttonStyle isNil ifTrue:[
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	566	buttonStyle := DefaultButtonStyle.
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	567	].
147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	568
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	569	super initStyle.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	570
1814 bbeeed65ec84 do not highlight when entering (unless explicitely set) Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	571	enteredBgColor := bgColor.
bbeeed65ec84 do not highlight when entering (unless explicitely set) Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	572
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	573	buttonStyle isNil ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	574	showLamp := styleSheet at:'radioButton.showLamp' default:showLamp.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	575	^ self
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	576	].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	577
1392 d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	578	adjust := #left.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	579	showLamp := true.
1469 d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	580	lampColor := Color black.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	581	buttonOnLevel := DefaultActiveLevel.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	582	buttonOffLevel := DefaultPassiveLevel.
1583 147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	583	onLevel := offLevel := 0.
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	584
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	585	self level:0.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	586
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	587	(buttonStyle == #motif
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	588	or:[buttonStyle == #round3D]) ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	589	activeBgColor := bgColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	590	activeFgColor := fgColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	591	] ifFalse:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	592	buttonStyle == #round2D ifTrue:[
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	593	activeFgColor := fgColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	594	activeBgColor := bgColor.
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	595	]
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
1583 147916baf6dc added #forceRadioButtonStyle - a kludge Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	598	"Modified: / 18.6.1998 / 21:18:07 / cg"
1384 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
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	601	!RadioButton methodsFor:'private'!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	602
1392 d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	603	computeLabelOrigin
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	604	super computeLabelOrigin.
1469 d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	605	buttonStyle notNil ifTrue:[
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	606	labelOriginX := hSpace + 15 + hSpace
1392 d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	607	]
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	608
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	609	"Modified: / 3.11.1997 / 18:17:58 / cg"
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	610	!
d30d46371cb7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	611
1469 d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	612	computeLabelSize
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	613	"compute the extent needed to hold the label plus the lamp"
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	614
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	615	super computeLabelSize.
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	616	buttonStyle notNil ifTrue:[
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	617	labelWidth := labelWidth + 15
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	618	]
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	619	!
d4f108e1a667 revised for the docu tz parents: 1406 diff changeset	620
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	621	lampImageHeight
1391 33fef737601f checkin from browser Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	622	buttonStyle isNil ifTrue:[^ super lampImageHeight].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	623	^ 15
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	624
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	625	"Created: / 3.11.1997 / 14:27:27 / cg"
1391 33fef737601f checkin from browser Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	626	"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	627	!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	628
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	629	lampImageWidth
1391 33fef737601f checkin from browser Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	630	buttonStyle isNil ifTrue:[^ super lampImageWidth].
1384 e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	631	^ 15
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	632
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	633	"Created: / 3.11.1997 / 14:27:23 / cg"
1391 33fef737601f checkin from browser Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	634	"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	635	! !
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	!RadioButton methodsFor:'queries'!
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	638
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	639	is3D
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	640	buttonStyle == #round2D ifTrue:[^ false.].
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	641	^ super is3D
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	642
e4acb2c5b10b more styles (motif, round3D and round2D) Claus Gittinger <cg@exept.de> parents: 1087 diff changeset	643	"Created: / 3.11.1997 / 14:39:36 / cg"
0 e6a541c1c0eb Initial revision claus parents: diff changeset	644	! !
e6a541c1c0eb Initial revision claus parents: diff changeset	645
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	646	!RadioButton class methodsFor:'documentation'!
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	647
6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	648	version
1814 bbeeed65ec84 do not highlight when entering (unless explicitely set) Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	649	^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.27 1999-03-22 19:44:01 cg Exp $'
205 6814c0bf8df8 checkin from browser Claus Gittinger <cg@exept.de> parents: 174 diff changeset	650	! !

author	Claus Gittinger <cg@exept.de>
	Mon, 22 Mar 1999 20:44:01 +0100
changeset 1814	bbeeed65ec84
parent 1809	111f603c0a1c
child 1882	c042adbad29e
permissions	-rw-r--r--