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

author	Claus Gittinger <cg@exept.de>
	Tue, 11 Nov 1997 14:50:13 +0100
changeset 1394	7db0ce820be2
parent 1393	0d6edc6e063b
child 1405	366bac893ba4
permissions	-rw-r--r--