--- a/Depth4Image.st	Sat Apr 20 23:27:31 1996 +0200
+++ b/Depth4Image.st	Sat Apr 20 23:42:05 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 Image subclass:#Depth4Image
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Graphics-Images'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Graphics-Images'
 !
 
 !Depth4Image class methodsFor:'documentation'!
@@ -45,7 +45,12 @@
 !Depth4Image class methodsFor:'queries'!
 
 imageDepth
+    "return the depth of images represented by instances of
+     this class - here we return 4"
+
     ^ 4
+
+    "Modified: 20.4.1996 / 23:40:18 / cg"
 ! !
 
 !Depth4Image methodsFor:'accessing'!
@@ -365,5 +370,5 @@
 !Depth4Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.14 1995-12-07 11:17:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.15 1996-04-20 21:41:09 cg Exp $'
 ! !