--- a/Color.st	Tue Oct 29 16:10:35 2002 +0100
+++ b/Color.st	Tue Oct 29 18:00:55 2002 +0100
@@ -13,21 +13,21 @@
 "{ Package: 'stx:libview' }"
 
 Object subclass:#Color
-        instanceVariableNames:'red green blue device colorId ditherForm replacementColor
-                writable'
-        classVariableNames:'MaxValue Cells Black White LightGrey Grey DarkGrey Pseudo0
-                Pseudo1 PseudoAll Red Green Blue RetryAllocation DitherBits
-                ColorErrorSignal ColorAllocationFailSignal InvalidColorNameSignal
-                StandardColorValues Transparent'
-        poolDictionaries:''
-        category:'Graphics-Support'
+	instanceVariableNames:'red green blue device colorId ditherForm replacementColor
+		writable'
+	classVariableNames:'MaxValue Cells Black White LightGrey Grey DarkGrey Pseudo0
+		Pseudo1 PseudoAll Red Green Blue RetryAllocation DitherBits
+		ColorErrorSignal ColorAllocationFailSignal InvalidColorNameSignal
+		StandardColorValues Transparent'
+	poolDictionaries:''
+	category:'Graphics-Support'
 !
 
 Object subclass:#DeviceColorHandle
-        instanceVariableNames:'device colorId'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:Color
+	instanceVariableNames:'device colorId'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:Color
 !
 
 !Color class methodsFor:'documentation'!
@@ -1214,13 +1214,14 @@
             depth == 1 ifTrue:[
                 ^ Form mediumGreyFormOn:Screen current
             ].
-            self halt:'not yet implemented'.
+            self shouldImplement.
         ].
-        mask _ (1 bitShift: depth) - 1.
-        bits _ 2 * depth.
+        mask := (1 bitShift: depth) - 1.
+        bits := 2 * depth.
         [bits >= 32] whileFalse: [
-                mask _ mask bitOr: (mask bitShift: bits).  "double the length of mask"
-                bits _ bits + bits].
+                mask := mask bitOr: (mask bitShift: bits).  "double the length of mask"
+                bits := bits + bits
+        ].
         ^ Bitmap with: mask with: mask bitInvert32
 
         "
@@ -5177,6 +5178,7 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.172 2002-09-06 21:07:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.173 2002-10-29 17:00:55 stefan Exp $'
 ! !
+
 Color initialize!