--- a/ST80FormReader.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/ST80FormReader.st	Thu Nov 17 15:30:22 1994 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -11,17 +11,17 @@
 "
 
 ImageReader subclass:#ST80FormReader
-         instanceVariableNames:''
-         classVariableNames:''
-         poolDictionaries:''
-         category:'Graphics-Support'
+	 instanceVariableNames:''
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Graphics-Images support'
 !
 
 ST80FormReader comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.4 1994-08-05 01:15:00 claus Exp $
+$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.5 1994-11-17 14:29:42 claus Exp $
 '!
 
 !ST80FormReader class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
 copyright
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -42,13 +42,17 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.4 1994-08-05 01:15:00 claus Exp $
+$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.5 1994-11-17 14:29:42 claus Exp $
 "
 !
 
 documentation
 "
     this class provides methods for loading and saving st80-bitmap-file images.
+    I am not sure, if this format is still supported/used by newer ST-80
+    versions; it used to be in 2.x versions (from what can be deduced by some
+    bitmaps found in the manchester goodies).
+    No writing is supported by this class.
 "
 ! !
 
@@ -59,8 +63,8 @@
 
     outStream := FileStream newFileNamed:aFileName.
     outStream isNil ifTrue:[
-        'create error' printNewline. 
-        ^ nil
+	'create error' printNewline. 
+	^ nil
     ].
 
     width := image width.
@@ -73,9 +77,9 @@
     ((samplesPerPixel ~~ 1)
     or:[((bitsPerSample at:1) ~~ 1)
     or:[(photometric ~~ #blackIs0) and:[photometric ~~ #whiteIs0]]]) ifTrue:[
-        self error:'can only save Depth1Images'.
-        outStream close.
-        ^ nil.
+	self error:'can only save Depth1Images'.
+	outStream close.
+	^ nil.
     ].
 
     outStream binary.
@@ -104,8 +108,8 @@
     inStream binary.
     code := inStream nextWord.
     code == 1 ifFalse:[
-        inStream close.
-        ^ false
+	inStream close.
+	^ false
     ].
     inStream close.
     ^ true
@@ -118,15 +122,15 @@
 
     inStream := self class streamReadingFile:aFileName.
     inStream isNil ifTrue:[
-        'open error' printNewline.
-        ^ nil
+	'open error' printNewline.
+	^ nil
     ].
 
     inStream binary.
     code := inStream nextWord.
     code isNil ifTrue:[
-        inStream close.
-        ^ nil
+	inStream close.
+	^ nil
     ].
 
     width := inStream nextWord.