--- a/Depth24Image.st	Tue Jun 24 21:39:45 1997 +0200
+++ b/Depth24Image.st	Tue Jun 24 21:47:31 1997 +0200
@@ -1239,8 +1239,8 @@
 
 !Depth24Image methodsFor:'dither helpers'!
 
-floydSteinbergDitheredBitsDepth:depth
-    "return the bitmap for a dithered depth bitmap from the image.
+floydSteinbergDitheredGrayBitsDepth:depth
+    "return the bits for dithering a depth gray bitmap from the image.
      Redefined to make use of knowing that pixels are 24 bit r/g/b"
 
     |dstIndex        "{Class: SmallInteger }"
@@ -1260,7 +1260,7 @@
 
     (samplesPerPixel ~~ 3
     or:[bitsPerSample ~= #(8 8 8)]) ifTrue:[
-        ^ super floydSteinbergDitheredBitsDepth:depth
+        ^ super floydSteinbergDitheredGrayBitsDepth:depth
     ].
 
     w := width.
@@ -1407,7 +1407,7 @@
      Redefined to make use of knowing that pixels are 24 bit r/g/b"
 
 
-    ^ self floydSteinbergDitheredBitsDepth:1
+    ^ self floydSteinbergDitheredGrayBitsDepth:1
 
     "Created: 10.6.1996 / 22:55:59 / cg"
 !
@@ -2203,5 +2203,5 @@
 !Depth24Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.51 1997-06-23 10:03:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.52 1997-06-24 19:46:47 cg Exp $'
 ! !

--- a/Image.st	Tue Jun 24 21:39:45 1997 +0200
+++ b/Image.st	Tue Jun 24 21:47:31 1997 +0200
@@ -2894,7 +2894,7 @@
 
 	bits := self floydSteinbergDitheredMonochromeBits.
     ] ifFalse:[
-	bits := self floydSteinbergDitheredBitsDepth:depth.
+	bits := self floydSteinbergDitheredGrayBitsDepth:depth.
     ].
 
     ^ self makeDeviceGrayPixmapOn:aDevice depth:depth fromArray:bits
@@ -2926,7 +2926,7 @@
 	^ self asFloydSteinbergDitheredMonochromeImage
     ].
 
-    ditheredBits := self floydSteinbergDitheredBitsDepth:depth.
+    ditheredBits := self floydSteinbergDitheredGrayBitsDepth:depth.
     ^ (self class implementorForDepth:depth)
 	width:width height:height fromArray:ditheredBits
 
@@ -5316,11 +5316,11 @@
     "Modified: 10.6.1996 / 13:16:33 / cg"
 !
 
-floydSteinbergDitheredBitsDepth:depth
-    "return the bitmap for a dithered depth bitmap from the image.
+floydSteinbergDitheredGrayBitsDepth:depth
+    "return the bits for dithering a gray image from the image.
      Works for any source depths / photometric, 
-     but very slow since each pixel is processed individually.
-     Redefined by some subclasses for more performance (D8Image)"
+     but possibly slow since each pixel is processed individually.
+     Redefined by some subclasses for more performance (D8Image/D24Image)"
 
     |dstIndex        "{Class: SmallInteger }"
      nextDst         "{Class: SmallInteger }"
@@ -10910,6 +10910,6 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.204 1997-06-24 19:39:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.205 1997-06-24 19:47:31 cg Exp $'
 ! !
 Image initialize!