cache forms - avoid recreation.
--- 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 $'
! !
--- 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 $'
! !