--- a/GIFReader.st	Thu Dec 07 11:34:06 1995 +0100
+++ b/GIFReader.st	Thu Dec 07 12:39:00 1995 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.4 on 18-feb-1995 at 2:18:24 am'!
-
 ImageReader subclass:#GIFReader
 	 instanceVariableNames:'redMap greenMap blueMap'
 	 classVariableNames:''
@@ -35,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.19 1995-11-11 16:04:30 cg Exp $'
-!
-
 documentation
 "
     this class provides methods for loading and saving GIF pictures.
@@ -93,25 +87,6 @@
 
 !GIFReader methodsFor:'reading from file'!
 
-readColorMap:colorMapSize
-    "get gif colormap consisting of colorMapSize entries"
-
-    |sz "{ Class: SmallInteger }"|
-
-"/    redMap := Array new:colorMapSize.
-"/    greenMap := Array new:colorMapSize.
-"/    blueMap := Array new:colorMapSize.
-    redMap := ByteArray uninitializedNew:colorMapSize.
-    greenMap := ByteArray uninitializedNew:colorMapSize.
-    blueMap := ByteArray uninitializedNew:colorMapSize.
-    sz := colorMapSize.
-    1 to:sz do:[:i |
-	redMap at:i put:(inStream nextByte).
-	greenMap at:i put:(inStream nextByte).
-	blueMap at:i put:(inStream nextByte)
-    ]
-!
-
 checkGreyscaleColormap
     "return true, if colormap is really a greymap"
 
@@ -128,10 +103,6 @@
     ^ true
 !
 
-makeGreyscale
-    "not yet implemented/needed"
-!
-
 fromStream:aStream
     "read a GIF file"
 
@@ -309,6 +280,34 @@
      GIFReader fromFile:'../fileIn/bitmaps/claus.gif
      GIFReader fromFile:'../fileIn/bitmaps/garfield.gif'
     "
+!
+
+makeGreyscale
+    "not yet implemented/needed"
+!
+
+readColorMap:colorMapSize
+    "get gif colormap consisting of colorMapSize entries"
+
+    |sz "{ Class: SmallInteger }"|
+
+"/    redMap := Array new:colorMapSize.
+"/    greenMap := Array new:colorMapSize.
+"/    blueMap := Array new:colorMapSize.
+    redMap := ByteArray uninitializedNew:colorMapSize.
+    greenMap := ByteArray uninitializedNew:colorMapSize.
+    blueMap := ByteArray uninitializedNew:colorMapSize.
+    sz := colorMapSize.
+    1 to:sz do:[:i |
+	redMap at:i put:(inStream nextByte).
+	greenMap at:i put:(inStream nextByte).
+	blueMap at:i put:(inStream nextByte)
+    ]
 ! !
 
+!GIFReader class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.20 1995-12-07 11:38:12 cg Exp $'
+! !
 GIFReader initialize!