--- a/GIFReader.st Tue Sep 10 00:58:38 1996 +0200
+++ b/GIFReader.st Fri Sep 13 18:45:31 1996 +0200
@@ -142,8 +142,9 @@
"GIF-files are always lsb (intel-world)"
byteOrder := #lsb.
- id := String new:6.
- aStream nextBytes:6 into:id.
+ id := ByteArray new:6.
+ aStream nextBytes:6 into:id startingAt:1.
+ id := id asString.
"all I had for testing where GIF87a files;
I hope later versions work too ..."
@@ -324,8 +325,8 @@
GIFReader fromFile:'../fileIn/bitmaps/garfield.gif'
"
- "Modified: 5.7.1996 / 12:32:33 / cg"
"Modified: 5.7.1996 / 17:32:01 / stefan"
+ "Modified: 13.9.1996 / 18:41:06 / cg"
!
makeGreyscale
@@ -461,6 +462,6 @@
!GIFReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.39 1996-07-05 21:07:28 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.40 1996-09-13 16:45:31 cg Exp $'
! !
GIFReader initialize!