--- a/SunRasterReader.st	Tue Jan 28 01:48:47 1997 +0100
+++ b/SunRasterReader.st	Tue Jan 28 12:03:30 1997 +0100
@@ -162,7 +162,7 @@
         ^ self
     ].
     depth ~~ 1 ifTrue: [
-        'SUNReader: only depth 1 and 8 supported' errorPrintNL.
+        'SUNReader [warning]: only depth 1 and 8 supported' errorPrintNL.
         ^ nil
     ].
 
@@ -173,7 +173,7 @@
     data := ByteArray uninitializedNew:(imageWords * 2).
 
     (rasterType between: 0 and: 2) ifFalse: [
-        'SUNReader: Unknown raster file rasterType' errorPrintNL.
+        'SUNReader [warning]: Unknown raster file rasterType' errorPrintNL.
         ^ nil
     ].
 
@@ -216,7 +216,7 @@
      SunRasterReader fromStream:'bitmaps/bf.im8' asFilename readStream
     "
 
-    "Modified: 23.4.1996 / 12:59:31 / cg"
+    "Modified: 28.1.1997 / 12:02:49 / cg"
 !
 
 fromSunIconStream:aStream 
@@ -230,25 +230,25 @@
     aStream text.
 
     (aStream skipThroughAll:'idth') isNil ifTrue: [
-        'SUNReader: Not a Sun Raster/Icon File' errorPrintNL.
+        'SUNReader [warning]: Not a Sun Raster/Icon File' errorPrintNL.
         ^nil
     ].
     aStream next; skipSeparators. "skip $="
     width := Integer readFrom: aStream.
     (width isNil or:[width <= 0]) ifTrue: [
-        'SUNReader: format error (expected number)' errorPrintNL.
+        'SUNReader [warning]: format error (expected number)' errorPrintNL.
         ^ nil
     ].
     w := width.
 
     (aStream skipThroughAll:'eight') isNil ifTrue: [
-        'SUNReader: format error (expected height)' errorPrintNL.
+        'SUNReader [warning]: format error (expected height)' errorPrintNL.
         ^ nil
     ].
     aStream next; skipSeparators. "skip $="
     height := Integer readFrom: aStream.
     (height isNil or:[height <= 0]) ifTrue: [
-        'SUNReader: format error (expected number)' errorPrintNL.
+        'SUNReader [warning]: format error (expected number)' errorPrintNL.
         ^nil
     ].
     h := height.
@@ -265,7 +265,7 @@
             (aStream skipThroughAll:'0x') isNil ifTrue: [^ nil]. 
             word := Integer readFrom:aStream radix:16.
             word isNil ifTrue:[
-                'SUNReader: format error' errorPrintNL.
+                'SUNReader [warning]: format error' errorPrintNL.
                 ^ nil
             ].
             data at: (index := index + 1) put: (word bitShift:-8).
@@ -273,12 +273,12 @@
         ]
     ].
 
-    "Modified: 23.4.1996 / 12:59:07 / cg"
+    "Modified: 28.1.1997 / 12:03:09 / cg"
 ! !
 
 !SunRasterReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.21 1996-05-10 16:44:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.22 1997-01-28 11:03:30 cg Exp $'
 ! !
 SunRasterReader initialize!