new infoMessage scheme
authorClaus Gittinger <cg@exept.de>
Fri, 10 Jan 1997 15:48:27 +0100
changeset 355 05eb4e183394
parent 354 b4d2ce853c24
child 356 0f90fb1e9db9
new infoMessage scheme
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!