# HG changeset patch # User Claus Gittinger # Date 901827347 -7200 # Node ID 21481cd942f9c8440ef6a948590bca8a1c242286 # Parent d5065006e79692d66f18fc819b53bf572f15e29a cache forms - avoid recreation. diff -r d5065006e796 -r 21481cd942f9 RButton.st --- a/RButton.st Thu Jul 30 11:30:06 1998 +0200 +++ b/RButton.st Thu Jul 30 21:35:47 1998 +0200 @@ -12,7 +12,9 @@ Toggle subclass:#RadioButton instanceVariableNames:'buttonStyle buttonOnLevel buttonOffLevel' - classVariableNames:'DefaultButtonStyle DefaultActiveLevel DefaultPassiveLevel' + classVariableNames:'DefaultButtonStyle DefaultActiveLevel DefaultPassiveLevel + MotifCheckBotForm MotifCheckTopForm Round3DCheckBotForm + Round3DCheckTopForm RoundHalfLightForm RoundOffForm RoundOnForm' poolDictionaries:'' category:'Views-Interactors' ! @@ -144,100 +146,113 @@ !RadioButton class methodsFor:'defaults'! motifCheckBotForm - ^ Form - width:15 - height:15 - fromArray:#[2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00001110 - 2r01110000 2r00011100 - 2r00111000 2r00111000 - 2r00011100 2r01110000 - 2r00001110 2r11100000 - 2r00000111 2r11000000 - 2r00000011 2r10000000 - 2r00000001 2r00000000 - ] + MotifCheckBotForm isNil ifTrue:[ + MotifCheckBotForm := Form + width:15 + height:15 + fromArray:#[2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00001110 + 2r01110000 2r00011100 + 2r00111000 2r00111000 + 2r00011100 2r01110000 + 2r00001110 2r11100000 + 2r00000111 2r11000000 + 2r00000011 2r10000000 + 2r00000001 2r00000000 + ]. + MotifCheckBotForm := MotifCheckBotForm onDevice:Display. + ]. + ^ MotifCheckBotForm "Created: / 3.11.1997 / 12:06:45 / cg" - "Modified: / 3.11.1997 / 12:10:50 / cg" + "Modified: / 30.7.1998 / 21:27:53 / cg" ! motifCheckTopForm - ^ Form - width:15 - height:15 - fromArray:#[2r00000001 2r00000000 - 2r00000011 2r10000000 - 2r00000111 2r11000000 - 2r00001110 2r11100000 - 2r00011100 2r01110000 - 2r00111000 2r00111000 - 2r01110000 2r00011100 - 2r11100000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - ] + MotifCheckTopForm isNil ifTrue:[ + MotifCheckTopForm := Form + width:15 + height:15 + fromArray:#[2r00000001 2r00000000 + 2r00000011 2r10000000 + 2r00000111 2r11000000 + 2r00001110 2r11100000 + 2r00011100 2r01110000 + 2r00111000 2r00111000 + 2r01110000 2r00011100 + 2r11100000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + ]. + MotifCheckTopForm := MotifCheckTopForm onDevice:Display + ]. + ^ MotifCheckTopForm "Created: / 3.11.1997 / 12:06:45 / cg" - "Modified: / 3.11.1997 / 12:11:03 / cg" + "Modified: / 30.7.1998 / 21:28:45 / cg" ! round3DCheckBotForm - ^ Form - width:15 - height:15 - fromArray:#[2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000010 - 2r00000000 2r00000010 - 2r00000000 2r00000110 - 2r00000000 2r00000110 - 2r00000000 2r00000110 - 2r00000000 2r00001110 - 2r01110000 2r00011100 - 2r01111000 2r00111100 - 2r00111111 2r11111000 - 2r00001111 2r11100000 - ] + Round3DCheckBotForm isNil ifTrue:[ + Round3DCheckBotForm := Form + width:15 + height:15 + fromArray:#[2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000010 + 2r00000000 2r00000010 + 2r00000000 2r00000110 + 2r00000000 2r00000110 + 2r00000000 2r00000110 + 2r00000000 2r00001110 + 2r01110000 2r00011100 + 2r01111000 2r00111100 + 2r00111111 2r11111000 + 2r00001111 2r11100000 + ]. + Round3DCheckBotForm := Round3DCheckBotForm onDevice:Display. + ]. + ^ Round3DCheckBotForm "Created: / 3.11.1997 / 14:29:37 / cg" - "Modified: / 9.11.1997 / 02:43:23 / cg" + "Modified: / 30.7.1998 / 21:29:57 / cg" ! round3DCheckTopForm - ^ Form - width:15 - height:15 - fromArray:#[2r00000011 2r10000000 - 2r00011110 2r11110000 - 2r00111000 2r00011000 - 2r01110000 2r00001100 - 2r01100000 2r00001100 - 2r11000000 2r00000100 - 2r11000000 2r00000100 - 2r11000000 2r00000000 - 2r11000000 2r00000000 - 2r11000000 2r00000000 - 2r01100000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - ] + Round3DCheckTopForm isNil ifTrue:[ + Round3DCheckTopForm := Form + width:15 + height:15 + fromArray:#[2r00000011 2r10000000 + 2r00011110 2r11110000 + 2r00111000 2r00011000 + 2r01110000 2r00001100 + 2r01100000 2r00001100 + 2r11000000 2r00000100 + 2r11000000 2r00000100 + 2r11000000 2r00000000 + 2r11000000 2r00000000 + 2r11000000 2r00000000 + 2r01100000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + ]. "/ fromArray:#[2r00000111 2r11000000 "/ 2r00011110 2r11110000 "/ 2r00111000 2r00111000 @@ -255,30 +270,36 @@ "/ 2r00000000 2r00000000 "/ ] + Round3DCheckTopForm := Round3DCheckTopForm onDevice:Display. + ]. + ^ Round3DCheckTopForm + "Created: / 3.11.1997 / 14:29:45 / cg" - "Modified: / 9.11.1997 / 02:37:41 / cg" + "Modified: / 30.7.1998 / 21:30:47 / cg" ! roundHalfLightForm - ^ Form - width:15 - height:15 - fromArray:#[2r00001100 2r01100000 - 2r00110000 2r00010000 - 2r01100000 2r00001000 - 2r01000000 2r00000100 - 2r11000000 2r00000100 - 2r10000000 2r00000000 - 2r10000000 2r00000000 - 2r10000000 2r00000100 - 2r10000000 2r00000100 - 2r10000000 2r00000100 - 2r11000000 2r00001000 - 2r00110000 2r00010000 - 2r00011000 2r00110000 - 2r00000111 2r11000000 - 2r00000000 2r00000000 - ] + RoundHalfLightForm isNil ifTrue:[ + RoundHalfLightForm := Form + width:15 + height:15 + fromArray:#[2r00001100 2r01100000 + 2r00110000 2r00010000 + 2r01100000 2r00001000 + 2r01000000 2r00000100 + 2r11000000 2r00000100 + 2r10000000 2r00000000 + 2r10000000 2r00000000 + 2r10000000 2r00000100 + 2r10000000 2r00000100 + 2r10000000 2r00000100 + 2r11000000 2r00001000 + 2r00110000 2r00010000 + 2r00011000 2r00110000 + 2r00000111 2r11000000 + 2r00000000 2r00000000 + ]. + "/ fromArray:#[2r00000000 2r00000000 "/ 2r00000011 2r10000000 "/ 2r00001000 2r00100000 @@ -296,30 +317,36 @@ "/ 2r00000000 2r00000000 "/ ] + RoundHalfLightForm := RoundHalfLightForm onDevice:Display. + ]. + ^ RoundHalfLightForm + "Created: / 3.11.1997 / 18:26:40 / cg" - "Modified: / 9.11.1997 / 02:47:09 / cg" + "Modified: / 30.7.1998 / 21:31:55 / cg" ! roundOffForm - ^ Form - width:15 - height:15 - fromArray:#[2r00000011 2r10000000 - 2r00001100 2r01100000 - 2r00010000 2r00010000 - 2r00100000 2r00001000 - 2r01000000 2r00000100 - 2r01000000 2r00000100 - 2r10000000 2r00000010 - 2r10000000 2r00000010 - 2r10000000 2r00000010 - 2r01000000 2r00000100 - 2r01000000 2r00000100 - 2r00100000 2r00001000 - 2r00010000 2r00010000 - 2r00001100 2r01100000 - 2r00000011 2r10000000 - ] + RoundOffForm isNil ifTrue:[ + RoundOffForm := Form + width:15 + height:15 + fromArray:#[2r00000011 2r10000000 + 2r00001100 2r01100000 + 2r00010000 2r00010000 + 2r00100000 2r00001000 + 2r01000000 2r00000100 + 2r01000000 2r00000100 + 2r10000000 2r00000010 + 2r10000000 2r00000010 + 2r10000000 2r00000010 + 2r01000000 2r00000100 + 2r01000000 2r00000100 + 2r00100000 2r00001000 + 2r00010000 2r00010000 + 2r00001100 2r01100000 + 2r00000011 2r10000000 + ]. + "/ fromArray:#[2r00000011 2r10000000 "/ 2r00001111 2r11100000 "/ 2r00111100 2r01111000 @@ -336,15 +363,19 @@ "/ 2r00001111 2r11100000 "/ 2r00000011 2r10000000 "/ ] + RoundOffForm := RoundOffForm onDevice:Display. + ]. + ^ RoundOffForm "Created: / 3.11.1997 / 12:41:13 / cg" - "Modified: / 9.11.1997 / 02:02:55 / cg" + "Modified: / 30.7.1998 / 21:33:03 / cg" ! roundOnForm - ^ Form - width:15 - height:15 + RoundOnForm isNil ifTrue:[ + RoundOnForm := Form + width:15 + height:15 "/ fromArray:#[2r00000000 2r00000000 "/ 2r00000000 2r00000000 "/ 2r00000000 2r00000000 @@ -361,25 +392,28 @@ "/ 2r00000000 2r00000000 "/ 2r00000000 2r00000000 "/ ] - fromArray:#[2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000011 2r10000000 - 2r00000111 2r11000000 - 2r00001111 2r11100000 - 2r00001111 2r11100000 - 2r00001111 2r11100000 - 2r00000111 2r11000000 - 2r00000011 2r10000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - ] + fromArray:#[2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000011 2r10000000 + 2r00000111 2r11000000 + 2r00001111 2r11100000 + 2r00001111 2r11100000 + 2r00001111 2r11100000 + 2r00000111 2r11000000 + 2r00000011 2r10000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + ]. + RoundOnForm := RoundOnForm onDevice:Display. + ]. + ^ RoundOnForm "Created: / 3.11.1997 / 12:41:17 / cg" - "Modified: / 9.11.1997 / 02:09:21 / cg" + "Modified: / 30.7.1998 / 21:33:39 / cg" ! updateStyleCache @@ -592,5 +626,5 @@ !RadioButton class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg/Attic/RButton.st,v 1.23 1998-06-18 19:25:17 cg Exp $' + ^ '$Header: /cvs/stx/stx/libwidg/Attic/RButton.st,v 1.24 1998-07-30 19:35:47 cg Exp $' ! ! diff -r d5065006e796 -r 21481cd942f9 RadioButton.st --- a/RadioButton.st Thu Jul 30 11:30:06 1998 +0200 +++ b/RadioButton.st Thu Jul 30 21:35:47 1998 +0200 @@ -12,7 +12,9 @@ Toggle subclass:#RadioButton instanceVariableNames:'buttonStyle buttonOnLevel buttonOffLevel' - classVariableNames:'DefaultButtonStyle DefaultActiveLevel DefaultPassiveLevel' + classVariableNames:'DefaultButtonStyle DefaultActiveLevel DefaultPassiveLevel + MotifCheckBotForm MotifCheckTopForm Round3DCheckBotForm + Round3DCheckTopForm RoundHalfLightForm RoundOffForm RoundOnForm' poolDictionaries:'' category:'Views-Interactors' ! @@ -144,100 +146,113 @@ !RadioButton class methodsFor:'defaults'! motifCheckBotForm - ^ Form - width:15 - height:15 - fromArray:#[2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00001110 - 2r01110000 2r00011100 - 2r00111000 2r00111000 - 2r00011100 2r01110000 - 2r00001110 2r11100000 - 2r00000111 2r11000000 - 2r00000011 2r10000000 - 2r00000001 2r00000000 - ] + MotifCheckBotForm isNil ifTrue:[ + MotifCheckBotForm := Form + width:15 + height:15 + fromArray:#[2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00001110 + 2r01110000 2r00011100 + 2r00111000 2r00111000 + 2r00011100 2r01110000 + 2r00001110 2r11100000 + 2r00000111 2r11000000 + 2r00000011 2r10000000 + 2r00000001 2r00000000 + ]. + MotifCheckBotForm := MotifCheckBotForm onDevice:Display. + ]. + ^ MotifCheckBotForm "Created: / 3.11.1997 / 12:06:45 / cg" - "Modified: / 3.11.1997 / 12:10:50 / cg" + "Modified: / 30.7.1998 / 21:27:53 / cg" ! motifCheckTopForm - ^ Form - width:15 - height:15 - fromArray:#[2r00000001 2r00000000 - 2r00000011 2r10000000 - 2r00000111 2r11000000 - 2r00001110 2r11100000 - 2r00011100 2r01110000 - 2r00111000 2r00111000 - 2r01110000 2r00011100 - 2r11100000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - ] + MotifCheckTopForm isNil ifTrue:[ + MotifCheckTopForm := Form + width:15 + height:15 + fromArray:#[2r00000001 2r00000000 + 2r00000011 2r10000000 + 2r00000111 2r11000000 + 2r00001110 2r11100000 + 2r00011100 2r01110000 + 2r00111000 2r00111000 + 2r01110000 2r00011100 + 2r11100000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + ]. + MotifCheckTopForm := MotifCheckTopForm onDevice:Display + ]. + ^ MotifCheckTopForm "Created: / 3.11.1997 / 12:06:45 / cg" - "Modified: / 3.11.1997 / 12:11:03 / cg" + "Modified: / 30.7.1998 / 21:28:45 / cg" ! round3DCheckBotForm - ^ Form - width:15 - height:15 - fromArray:#[2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000010 - 2r00000000 2r00000010 - 2r00000000 2r00000110 - 2r00000000 2r00000110 - 2r00000000 2r00000110 - 2r00000000 2r00001110 - 2r01110000 2r00011100 - 2r01111000 2r00111100 - 2r00111111 2r11111000 - 2r00001111 2r11100000 - ] + Round3DCheckBotForm isNil ifTrue:[ + Round3DCheckBotForm := Form + width:15 + height:15 + fromArray:#[2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000010 + 2r00000000 2r00000010 + 2r00000000 2r00000110 + 2r00000000 2r00000110 + 2r00000000 2r00000110 + 2r00000000 2r00001110 + 2r01110000 2r00011100 + 2r01111000 2r00111100 + 2r00111111 2r11111000 + 2r00001111 2r11100000 + ]. + Round3DCheckBotForm := Round3DCheckBotForm onDevice:Display. + ]. + ^ Round3DCheckBotForm "Created: / 3.11.1997 / 14:29:37 / cg" - "Modified: / 9.11.1997 / 02:43:23 / cg" + "Modified: / 30.7.1998 / 21:29:57 / cg" ! round3DCheckTopForm - ^ Form - width:15 - height:15 - fromArray:#[2r00000011 2r10000000 - 2r00011110 2r11110000 - 2r00111000 2r00011000 - 2r01110000 2r00001100 - 2r01100000 2r00001100 - 2r11000000 2r00000100 - 2r11000000 2r00000100 - 2r11000000 2r00000000 - 2r11000000 2r00000000 - 2r11000000 2r00000000 - 2r01100000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - ] + Round3DCheckTopForm isNil ifTrue:[ + Round3DCheckTopForm := Form + width:15 + height:15 + fromArray:#[2r00000011 2r10000000 + 2r00011110 2r11110000 + 2r00111000 2r00011000 + 2r01110000 2r00001100 + 2r01100000 2r00001100 + 2r11000000 2r00000100 + 2r11000000 2r00000100 + 2r11000000 2r00000000 + 2r11000000 2r00000000 + 2r11000000 2r00000000 + 2r01100000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + ]. "/ fromArray:#[2r00000111 2r11000000 "/ 2r00011110 2r11110000 "/ 2r00111000 2r00111000 @@ -255,30 +270,36 @@ "/ 2r00000000 2r00000000 "/ ] + Round3DCheckTopForm := Round3DCheckTopForm onDevice:Display. + ]. + ^ Round3DCheckTopForm + "Created: / 3.11.1997 / 14:29:45 / cg" - "Modified: / 9.11.1997 / 02:37:41 / cg" + "Modified: / 30.7.1998 / 21:30:47 / cg" ! roundHalfLightForm - ^ Form - width:15 - height:15 - fromArray:#[2r00001100 2r01100000 - 2r00110000 2r00010000 - 2r01100000 2r00001000 - 2r01000000 2r00000100 - 2r11000000 2r00000100 - 2r10000000 2r00000000 - 2r10000000 2r00000000 - 2r10000000 2r00000100 - 2r10000000 2r00000100 - 2r10000000 2r00000100 - 2r11000000 2r00001000 - 2r00110000 2r00010000 - 2r00011000 2r00110000 - 2r00000111 2r11000000 - 2r00000000 2r00000000 - ] + RoundHalfLightForm isNil ifTrue:[ + RoundHalfLightForm := Form + width:15 + height:15 + fromArray:#[2r00001100 2r01100000 + 2r00110000 2r00010000 + 2r01100000 2r00001000 + 2r01000000 2r00000100 + 2r11000000 2r00000100 + 2r10000000 2r00000000 + 2r10000000 2r00000000 + 2r10000000 2r00000100 + 2r10000000 2r00000100 + 2r10000000 2r00000100 + 2r11000000 2r00001000 + 2r00110000 2r00010000 + 2r00011000 2r00110000 + 2r00000111 2r11000000 + 2r00000000 2r00000000 + ]. + "/ fromArray:#[2r00000000 2r00000000 "/ 2r00000011 2r10000000 "/ 2r00001000 2r00100000 @@ -296,30 +317,36 @@ "/ 2r00000000 2r00000000 "/ ] + RoundHalfLightForm := RoundHalfLightForm onDevice:Display. + ]. + ^ RoundHalfLightForm + "Created: / 3.11.1997 / 18:26:40 / cg" - "Modified: / 9.11.1997 / 02:47:09 / cg" + "Modified: / 30.7.1998 / 21:31:55 / cg" ! roundOffForm - ^ Form - width:15 - height:15 - fromArray:#[2r00000011 2r10000000 - 2r00001100 2r01100000 - 2r00010000 2r00010000 - 2r00100000 2r00001000 - 2r01000000 2r00000100 - 2r01000000 2r00000100 - 2r10000000 2r00000010 - 2r10000000 2r00000010 - 2r10000000 2r00000010 - 2r01000000 2r00000100 - 2r01000000 2r00000100 - 2r00100000 2r00001000 - 2r00010000 2r00010000 - 2r00001100 2r01100000 - 2r00000011 2r10000000 - ] + RoundOffForm isNil ifTrue:[ + RoundOffForm := Form + width:15 + height:15 + fromArray:#[2r00000011 2r10000000 + 2r00001100 2r01100000 + 2r00010000 2r00010000 + 2r00100000 2r00001000 + 2r01000000 2r00000100 + 2r01000000 2r00000100 + 2r10000000 2r00000010 + 2r10000000 2r00000010 + 2r10000000 2r00000010 + 2r01000000 2r00000100 + 2r01000000 2r00000100 + 2r00100000 2r00001000 + 2r00010000 2r00010000 + 2r00001100 2r01100000 + 2r00000011 2r10000000 + ]. + "/ fromArray:#[2r00000011 2r10000000 "/ 2r00001111 2r11100000 "/ 2r00111100 2r01111000 @@ -336,15 +363,19 @@ "/ 2r00001111 2r11100000 "/ 2r00000011 2r10000000 "/ ] + RoundOffForm := RoundOffForm onDevice:Display. + ]. + ^ RoundOffForm "Created: / 3.11.1997 / 12:41:13 / cg" - "Modified: / 9.11.1997 / 02:02:55 / cg" + "Modified: / 30.7.1998 / 21:33:03 / cg" ! roundOnForm - ^ Form - width:15 - height:15 + RoundOnForm isNil ifTrue:[ + RoundOnForm := Form + width:15 + height:15 "/ fromArray:#[2r00000000 2r00000000 "/ 2r00000000 2r00000000 "/ 2r00000000 2r00000000 @@ -361,25 +392,28 @@ "/ 2r00000000 2r00000000 "/ 2r00000000 2r00000000 "/ ] - fromArray:#[2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000011 2r10000000 - 2r00000111 2r11000000 - 2r00001111 2r11100000 - 2r00001111 2r11100000 - 2r00001111 2r11100000 - 2r00000111 2r11000000 - 2r00000011 2r10000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - 2r00000000 2r00000000 - ] + fromArray:#[2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000011 2r10000000 + 2r00000111 2r11000000 + 2r00001111 2r11100000 + 2r00001111 2r11100000 + 2r00001111 2r11100000 + 2r00000111 2r11000000 + 2r00000011 2r10000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + 2r00000000 2r00000000 + ]. + RoundOnForm := RoundOnForm onDevice:Display. + ]. + ^ RoundOnForm "Created: / 3.11.1997 / 12:41:17 / cg" - "Modified: / 9.11.1997 / 02:09:21 / cg" + "Modified: / 30.7.1998 / 21:33:39 / cg" ! updateStyleCache @@ -592,5 +626,5 @@ !RadioButton class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.23 1998-06-18 19:25:17 cg Exp $' + ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.24 1998-07-30 19:35:47 cg Exp $' ! !