PCXReader.st
changeset 1848 864ca2cd4e71
parent 1846 d29322944b05
child 3855 1db7742d33ad
child 3990 1edec82fe2fa
--- a/PCXReader.st	Wed Nov 19 16:33:55 2003 +0100
+++ b/PCXReader.st	Wed Nov 19 16:38:53 2003 +0100
@@ -112,26 +112,7 @@
     "Modified: 16.4.1997 / 22:24:32 / cg"
 ! !
 
-!PCXReader methodsFor:'reading'!
-
-readImage
-    "read an image in pcx format from inStream"
-
-    inStream binary.
-
-    header := ByteArray uninitializedNew:128.
-    (inStream nextBytes:128 into:header) == 128 ifFalse:[
-        ^ self fileFormatError:'short file'.
-    ].
-
-    (self class isValidPCXHeader:header) ifFalse:[
-        ^ self fileFormatError:'wrong header'.
-    ].
-
-    self readRestAfterHeader.
-! !
-
-!PCXReader methodsFor:'reading-private'!
+!PCXReader methodsFor:'private-reading'!
 
 extractColorMap16
     "extract the 16-entry colormap from the header"
@@ -359,10 +340,29 @@
     nBuffer := 0.
 ! !
 
+!PCXReader methodsFor:'reading'!
+
+readImage
+    "read an image in pcx format from inStream"
+
+    inStream binary.
+
+    header := ByteArray uninitializedNew:128.
+    (inStream nextBytes:128 into:header) == 128 ifFalse:[
+        ^ self fileFormatError:'short file'.
+    ].
+
+    (self class isValidPCXHeader:header) ifFalse:[
+        ^ self fileFormatError:'wrong header'.
+    ].
+
+    self readRestAfterHeader.
+! !
+
 !PCXReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PCXReader.st,v 1.32 2003-11-19 15:26:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PCXReader.st,v 1.33 2003-11-19 15:38:20 cg Exp $'
 ! !
 
 PCXReader initialize!