--- a/ChckTggle.st Wed Jun 04 13:23:34 1997 +0200
+++ b/ChckTggle.st Wed Jun 04 13:26:13 1997 +0200
@@ -231,6 +231,134 @@
^ DefaultCheckForm on:aDevice.
!
+checkImageForStyle:aStyleSymbol
+ "helper & public access to useful checkToggle images"
+
+ |bits|
+
+ aStyleSymbol == #cross ifTrue:[
+ bits := #[2r10000000 2r00000001
+ 2r01000000 2r00000010
+ 2r00100000 2r00000100
+ 2r00010000 2r00001000
+ 2r00001000 2r00010000
+ 2r00000100 2r00100000
+ 2r00000010 2r01000000
+ 2r00000001 2r10000000
+ 2r00000001 2r10000000
+ 2r00000010 2r01000000
+ 2r00000100 2r00100000
+ 2r00001000 2r00010000
+ 2r00010000 2r00001000
+ 2r00100000 2r00000100
+ 2r01000000 2r00000010
+ 2r10000000 2r00000001]
+ ] ifFalse:[
+ aStyleSymbol == #borderedCross ifTrue:[
+ bits := #[2r11111111 2r11111111
+ 2r11000000 2r00000011
+ 2r10100000 2r00000101
+ 2r10010000 2r00001001
+ 2r10001000 2r00010001
+ 2r10000100 2r00100001
+ 2r10000010 2r01000001
+ 2r10000001 2r10000001
+ 2r10000001 2r10000001
+ 2r10000010 2r01000001
+ 2r10000100 2r00100001
+ 2r10001000 2r00010001
+ 2r10010000 2r00001001
+ 2r10100000 2r00000101
+ 2r11000000 2r00000011
+ 2r11111111 2r11111111]
+ ] ifFalse:[
+ aStyleSymbol == #fatcross ifTrue:[
+ bits := #[2r11000000 2r00000011
+ 2r11100000 2r00000111
+ 2r01110000 2r00001110
+ 2r00111000 2r00011100
+ 2r00011100 2r00111000
+ 2r00001110 2r01110000
+ 2r00000111 2r11100000
+ 2r00000011 2r11000000
+ 2r00000011 2r11000000
+ 2r00000111 2r11100000
+ 2r00001110 2r01110000
+ 2r00011100 2r00111000
+ 2r00111000 2r00011100
+ 2r01110000 2r00001110
+ 2r11100000 2r00000111
+ 2r11000000 2r00000011]
+ ] ifFalse:[
+ aStyleSymbol == #borderedFatcross ifTrue:[
+ bits := #[2r11111111 2r11111111
+ 2r11100000 2r00000111
+ 2r11110000 2r00001111
+ 2r10111000 2r00011101
+ 2r10011100 2r00111001
+ 2r10001110 2r01110001
+ 2r10000111 2r11100001
+ 2r10000011 2r11000001
+ 2r10000011 2r11000001
+ 2r10000111 2r11100001
+ 2r10001110 2r01110001
+ 2r10011100 2r00111001
+ 2r10111000 2r00011101
+ 2r11110000 2r00001111
+ 2r11100000 2r00000111
+ 2r11111111 2r11111111]
+ ] ifFalse:[
+ aStyleSymbol == #border ifTrue:[
+ bits := #[2r11111111 2r11111111
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r11111111 2r11111111]
+ ] ifFalse:[
+ bits := #[2r00000000 2r00000000
+ 2r00000000 2r00000010
+ 2r00000000 2r00000010
+ 2r00000000 2r00000100
+ 2r00000000 2r00000100
+ 2r00000000 2r00001000
+ 2r00000000 2r00001000
+ 2r00000000 2r00010000
+ 2r01000000 2r00110000
+ 2r00100000 2r01100000
+ 2r00011000 2r01100000
+ 2r00001110 2r11000000
+ 2r00000111 2r11000000
+ 2r00000011 2r10000000
+ 2r00000001 2r10000000
+ 2r00000000 2r00000000]
+ ]
+ ]
+ ]
+ ]
+ ].
+ ^ Form width:16 height:16 fromArray:bits on:Display
+
+ "
+ self checkImageForStyle:#cross
+ self checkImageForStyle:#fatcross
+ self checkImageForStyle:#borderedCross
+ self checkImageForStyle:#borderedFatcross
+ "
+
+ "Modified: 7.3.1997 / 21:15:13 / cg"
+!
+
updateStyleCache
"extract values from the styleSheet and cache them in class variables"
@@ -269,62 +397,7 @@
].
DefaultCheckForm isNil ifTrue:[
checkStyle := StyleSheet at:'checkToggleStyle' default:#check.
- checkStyle == #cross ifTrue:[
- bits := #[2r10000000 2r00000001
- 2r01000000 2r00000010
- 2r00100000 2r00000100
- 2r00010000 2r00001000
- 2r00001000 2r00010000
- 2r00000100 2r00100000
- 2r00000010 2r01000000
- 2r00000001 2r10000000
- 2r00000001 2r10000000
- 2r00000010 2r01000000
- 2r00000100 2r00100000
- 2r00001000 2r00010000
- 2r00010000 2r00001000
- 2r00100000 2r00000100
- 2r01000000 2r00000010
- 2r10000000 2r00000001]
-
- ] ifFalse:[
- checkStyle == #fatcross ifTrue:[
- bits := #[2r11000000 2r00000011
- 2r11100000 2r00000111
- 2r01110000 2r00001110
- 2r00111000 2r00011100
- 2r00011100 2r00111000
- 2r00001110 2r01110000
- 2r00000111 2r11100000
- 2r00000011 2r11000000
- 2r00000011 2r11000000
- 2r00000111 2r11100000
- 2r00001110 2r01110000
- 2r00011100 2r00111000
- 2r00111000 2r00011100
- 2r01110000 2r00001110
- 2r11100000 2r00000111
- 2r11000000 2r00000011]
- ] ifFalse:[
- bits := #[2r00000000 2r00000000
- 2r00000000 2r00000010
- 2r00000000 2r00000010
- 2r00000000 2r00000100
- 2r00000000 2r00000100
- 2r00000000 2r00001000
- 2r00000000 2r00001000
- 2r00000000 2r00010000
- 2r01000000 2r00110000
- 2r00100000 2r01100000
- 2r00011000 2r01100000
- 2r00001110 2r11000000
- 2r00000111 2r11000000
- 2r00000011 2r10000000
- 2r00000001 2r10000000
- 2r00000000 2r00000000]
- ]
- ].
- DefaultCheckForm := Form width:16 height:16 fromArray:bits on:Display
+ DefaultCheckForm := self checkImageForStyle:checkStyle
]
"
@@ -430,5 +503,5 @@
!CheckToggle class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.35 1997-04-01 11:36:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.36 1997-06-04 11:26:13 ca Exp $'
! !
--- a/CheckToggle.st Wed Jun 04 13:23:34 1997 +0200
+++ b/CheckToggle.st Wed Jun 04 13:26:13 1997 +0200
@@ -231,6 +231,134 @@
^ DefaultCheckForm on:aDevice.
!
+checkImageForStyle:aStyleSymbol
+ "helper & public access to useful checkToggle images"
+
+ |bits|
+
+ aStyleSymbol == #cross ifTrue:[
+ bits := #[2r10000000 2r00000001
+ 2r01000000 2r00000010
+ 2r00100000 2r00000100
+ 2r00010000 2r00001000
+ 2r00001000 2r00010000
+ 2r00000100 2r00100000
+ 2r00000010 2r01000000
+ 2r00000001 2r10000000
+ 2r00000001 2r10000000
+ 2r00000010 2r01000000
+ 2r00000100 2r00100000
+ 2r00001000 2r00010000
+ 2r00010000 2r00001000
+ 2r00100000 2r00000100
+ 2r01000000 2r00000010
+ 2r10000000 2r00000001]
+ ] ifFalse:[
+ aStyleSymbol == #borderedCross ifTrue:[
+ bits := #[2r11111111 2r11111111
+ 2r11000000 2r00000011
+ 2r10100000 2r00000101
+ 2r10010000 2r00001001
+ 2r10001000 2r00010001
+ 2r10000100 2r00100001
+ 2r10000010 2r01000001
+ 2r10000001 2r10000001
+ 2r10000001 2r10000001
+ 2r10000010 2r01000001
+ 2r10000100 2r00100001
+ 2r10001000 2r00010001
+ 2r10010000 2r00001001
+ 2r10100000 2r00000101
+ 2r11000000 2r00000011
+ 2r11111111 2r11111111]
+ ] ifFalse:[
+ aStyleSymbol == #fatcross ifTrue:[
+ bits := #[2r11000000 2r00000011
+ 2r11100000 2r00000111
+ 2r01110000 2r00001110
+ 2r00111000 2r00011100
+ 2r00011100 2r00111000
+ 2r00001110 2r01110000
+ 2r00000111 2r11100000
+ 2r00000011 2r11000000
+ 2r00000011 2r11000000
+ 2r00000111 2r11100000
+ 2r00001110 2r01110000
+ 2r00011100 2r00111000
+ 2r00111000 2r00011100
+ 2r01110000 2r00001110
+ 2r11100000 2r00000111
+ 2r11000000 2r00000011]
+ ] ifFalse:[
+ aStyleSymbol == #borderedFatcross ifTrue:[
+ bits := #[2r11111111 2r11111111
+ 2r11100000 2r00000111
+ 2r11110000 2r00001111
+ 2r10111000 2r00011101
+ 2r10011100 2r00111001
+ 2r10001110 2r01110001
+ 2r10000111 2r11100001
+ 2r10000011 2r11000001
+ 2r10000011 2r11000001
+ 2r10000111 2r11100001
+ 2r10001110 2r01110001
+ 2r10011100 2r00111001
+ 2r10111000 2r00011101
+ 2r11110000 2r00001111
+ 2r11100000 2r00000111
+ 2r11111111 2r11111111]
+ ] ifFalse:[
+ aStyleSymbol == #border ifTrue:[
+ bits := #[2r11111111 2r11111111
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r10000000 2r00000001
+ 2r11111111 2r11111111]
+ ] ifFalse:[
+ bits := #[2r00000000 2r00000000
+ 2r00000000 2r00000010
+ 2r00000000 2r00000010
+ 2r00000000 2r00000100
+ 2r00000000 2r00000100
+ 2r00000000 2r00001000
+ 2r00000000 2r00001000
+ 2r00000000 2r00010000
+ 2r01000000 2r00110000
+ 2r00100000 2r01100000
+ 2r00011000 2r01100000
+ 2r00001110 2r11000000
+ 2r00000111 2r11000000
+ 2r00000011 2r10000000
+ 2r00000001 2r10000000
+ 2r00000000 2r00000000]
+ ]
+ ]
+ ]
+ ]
+ ].
+ ^ Form width:16 height:16 fromArray:bits on:Display
+
+ "
+ self checkImageForStyle:#cross
+ self checkImageForStyle:#fatcross
+ self checkImageForStyle:#borderedCross
+ self checkImageForStyle:#borderedFatcross
+ "
+
+ "Modified: 7.3.1997 / 21:15:13 / cg"
+!
+
updateStyleCache
"extract values from the styleSheet and cache them in class variables"
@@ -269,62 +397,7 @@
].
DefaultCheckForm isNil ifTrue:[
checkStyle := StyleSheet at:'checkToggleStyle' default:#check.
- checkStyle == #cross ifTrue:[
- bits := #[2r10000000 2r00000001
- 2r01000000 2r00000010
- 2r00100000 2r00000100
- 2r00010000 2r00001000
- 2r00001000 2r00010000
- 2r00000100 2r00100000
- 2r00000010 2r01000000
- 2r00000001 2r10000000
- 2r00000001 2r10000000
- 2r00000010 2r01000000
- 2r00000100 2r00100000
- 2r00001000 2r00010000
- 2r00010000 2r00001000
- 2r00100000 2r00000100
- 2r01000000 2r00000010
- 2r10000000 2r00000001]
-
- ] ifFalse:[
- checkStyle == #fatcross ifTrue:[
- bits := #[2r11000000 2r00000011
- 2r11100000 2r00000111
- 2r01110000 2r00001110
- 2r00111000 2r00011100
- 2r00011100 2r00111000
- 2r00001110 2r01110000
- 2r00000111 2r11100000
- 2r00000011 2r11000000
- 2r00000011 2r11000000
- 2r00000111 2r11100000
- 2r00001110 2r01110000
- 2r00011100 2r00111000
- 2r00111000 2r00011100
- 2r01110000 2r00001110
- 2r11100000 2r00000111
- 2r11000000 2r00000011]
- ] ifFalse:[
- bits := #[2r00000000 2r00000000
- 2r00000000 2r00000010
- 2r00000000 2r00000010
- 2r00000000 2r00000100
- 2r00000000 2r00000100
- 2r00000000 2r00001000
- 2r00000000 2r00001000
- 2r00000000 2r00010000
- 2r01000000 2r00110000
- 2r00100000 2r01100000
- 2r00011000 2r01100000
- 2r00001110 2r11000000
- 2r00000111 2r11000000
- 2r00000011 2r10000000
- 2r00000001 2r10000000
- 2r00000000 2r00000000]
- ]
- ].
- DefaultCheckForm := Form width:16 height:16 fromArray:bits on:Display
+ DefaultCheckForm := self checkImageForStyle:checkStyle
]
"
@@ -430,5 +503,5 @@
!CheckToggle class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.35 1997-04-01 11:36:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.36 1997-06-04 11:26:13 ca Exp $'
! !