PCXReader.st
changeset 102 b634afc009a4
parent 99 a656b0c9dd21
child 114 e577a2f332d0
--- a/PCXReader.st	Sat Sep 16 01:50:04 1995 +0200
+++ b/PCXReader.st	Sun Sep 17 20:01:10 1995 +0200
@@ -37,16 +37,17 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/PCXReader.st,v 1.8 1995-08-30 17:54:10 claus Exp $
+$Header: /cvs/stx/stx/libview2/PCXReader.st,v 1.9 1995-09-17 18:00:43 claus Exp $
 "
 !
 
 documentation
 "
-    this class provides methods for loading PCX bitmap files.
+    this class provides methods for loading 8-plane PCX bitmap files.
     Due to not having too many examples for testing, this could fail
     to read some files. (especially, I have no uncompressed files
     for testing).
+    Also, only 8-bit (i.e. 256 color) PCX images are supported.
 "
 ! !
 
@@ -83,7 +84,6 @@
 
     inStream := self streamReadingFile:aFilename.
     inStream isNil ifTrue:[^ false].
-
     inStream binary.
 
     header := ByteArray uninitializedNew:128.
@@ -94,6 +94,8 @@
 	^ false
     ].
     ^ true
+
+    "Modified: 17.9.1995 / 17:32:07 / claus"
 ! !
 
 !PCXReader methodsFor:'reading from file'!
@@ -138,6 +140,8 @@
      So its not (yet) implemented
     "
     ((inDepth ~~ 8) or:[nPlanes ~~ 1]) ifTrue:[
+	'PCXReader: depth: ' errorPrint. inDepth errorPrint. 
+	' planes:' errorPrint. nPlanes errorPrintNL.
 	'PCXReader: can only handle 1-plane 256 color images' errorPrintNL.
 	^ nil
     ].