# HG changeset patch # User Claus Gittinger # Date 852907707 -3600 # Node ID 05eb4e183394f9bae1c7bc2a6e8f9598f396b28a # Parent b4d2ce853c24303d315b9f4a1d801f6e14fc9075 new infoMessage scheme diff -r b4d2ce853c24 -r 05eb4e183394 GIFReader.st --- a/GIFReader.st Fri Jan 10 14:56:15 1997 +0100 +++ b/GIFReader.st Fri Jan 10 15:48:27 1997 +0100 @@ -97,12 +97,12 @@ (id startsWith:'GIF') ifFalse:[^ false]. id ~= 'GIF89a' ifTrue:[ - 'GIFReader: not a GIF87a/GIF89a file - hope that works' infoPrintCR. + 'GIFReader [info]: not a GIF87a/GIF89a file - hope that works' infoPrintCR. ] ]. ^ true - "Modified: 20.5.1996 / 10:32:34 / cg" + "Modified: 10.1.1997 / 15:40:34 / cg" ! ! !GIFReader methodsFor:'reading from file'! @@ -154,11 +154,11 @@ isGif89 := false. (id ~= 'GIF87a') ifTrue:[ (id startsWith:'GIF') ifFalse:[ - 'GIFReader: not a gif file' infoPrintCR. + 'GIFReader [info]: not a gif file' infoPrintCR. ^ nil ]. id ~= 'GIF89a' ifTrue:[ - 'GIFReader: not a GIF87a/GIF89a file - hope that works' infoPrintCR. + 'GIFReader [info]: not a GIF87a/GIF89a file - hope that works' infoPrintCR. ] ]. @@ -196,7 +196,7 @@ "must now be image separator" (byte ~~ 16r2C) ifTrue:[ - ('GIFReader: corrupted gif file (no IMAGESEP): ' , (byte printStringRadix:16)) infoPrintCR. + ('GIFReader [info]: corrupted gif file (no IMAGESEP): ' , (byte printStringRadix:16)) infoPrintCR. ^ nil ]. @@ -332,7 +332,7 @@ " "Modified: 5.7.1996 / 17:32:01 / stefan" - "Modified: 18.10.1996 / 13:23:26 / cg" + "Modified: 10.1.1997 / 15:40:58 / cg" ! makeGreyscale @@ -468,6 +468,6 @@ !GIFReader class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.44 1997-01-10 13:56:15 cg Exp $' + ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.45 1997-01-10 14:48:27 cg Exp $' ! ! GIFReader initialize!