GIFReader.st
changeset 1756 7c4f38c59b2a
parent 1755 f61db1006d4f
child 1759 f52382e5a9b8
--- a/GIFReader.st	Mon Apr 28 11:18:06 2003 +0200
+++ b/GIFReader.st	Mon Apr 28 12:16:30 2003 +0200
@@ -464,27 +464,7 @@
     |rgbVector|
 
     rgbVector := inStream nextBytes:colorMapSize*3.
-    ^ Colormap rgbVector:rgbVector 
-
-"/    |sz "{ Class: SmallInteger }"
-"/     redMap greenMap blueMap|
-"/
-"/    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)
-"/    ].
-"/
-"/    ^ Colormap 
-"/        redVector:redMap 
-"/        greenVector:greenMap 
-"/        blueVector:blueMap.
-    "Modified: 21.6.1996 / 12:32:43 / cg"
+    ^ Colormap rgbBytesVector:rgbVector 
 !
 
 readExtension:aStream
@@ -1003,7 +983,7 @@
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.82 2003-04-28 09:18:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.83 2003-04-28 10:16:22 cg Exp $'
 ! !
 
 GIFReader initialize!