# HG changeset patch
# User ca
# Date 865423573 -7200
# Node ID 529f36ae3217d5bc08f8ea883eaf1c97fd21c19d
# Parent  23748485375c52220f0a9c74c115dca8dd6fae5b
added:
    checkImageForStyle:

diff -r 23748485375c -r 529f36ae3217 ChckTggle.st
--- 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 $'
 ! !
diff -r 23748485375c -r 529f36ae3217 CheckToggle.st
--- 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 $'
 ! !