equal
deleted
inserted
replaced
238 |
238 |
239 "get compressed data" |
239 "get compressed data" |
240 index := 1. |
240 index := 1. |
241 count := aStream nextByte. |
241 count := aStream nextByte. |
242 [count notNil and:[count ~~ 0]] whileTrue:[ |
242 [count notNil and:[count ~~ 0]] whileTrue:[ |
243 aStream nextBytes:count into:compressedData startingAt:index. |
243 aStream nextBytes:count into:compressedData startingAt:index blockSize:4096. |
244 index := index + count. |
244 index := index + count. |
245 count := aStream nextByte |
245 count := aStream nextByte |
246 ]. |
246 ]. |
247 compressedSize := index - 1. |
247 compressedSize := index - 1. |
248 |
248 |
329 GIFReader fromFile:'../fileIn/bitmaps/claus.gif |
329 GIFReader fromFile:'../fileIn/bitmaps/claus.gif |
330 GIFReader fromFile:'../fileIn/bitmaps/garfield.gif' |
330 GIFReader fromFile:'../fileIn/bitmaps/garfield.gif' |
331 " |
331 " |
332 |
332 |
333 "Modified: 5.7.1996 / 17:32:01 / stefan" |
333 "Modified: 5.7.1996 / 17:32:01 / stefan" |
334 "Modified: 10.1.1997 / 15:40:58 / cg" |
334 "Modified: 24.4.1997 / 21:13:06 / cg" |
335 ! |
335 ! |
336 |
336 |
337 makeGreyscale |
337 makeGreyscale |
338 "not yet implemented/needed" |
338 "not yet implemented/needed" |
339 ! |
339 ! |
465 ! ! |
465 ! ! |
466 |
466 |
467 !GIFReader class methodsFor:'documentation'! |
467 !GIFReader class methodsFor:'documentation'! |
468 |
468 |
469 version |
469 version |
470 ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.47 1997-04-10 22:55:22 cg Exp $' |
470 ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.48 1997-04-24 19:20:58 cg Exp $' |
471 ! ! |
471 ! ! |
472 GIFReader initialize! |
472 GIFReader initialize! |