XBMReader.st
changeset 357 4bcb93f5892e
parent 272 477aeb0d62b6
child 398 aef700d15416
--- a/XBMReader.st	Fri Jan 10 16:10:28 1997 +0100
+++ b/XBMReader.st	Fri Jan 10 18:32:24 1997 +0100
@@ -128,7 +128,7 @@
 
     line := aStream nextLine.
     line isNil ifTrue:[
-        'XBMReader: short file' errorPrintNL.
+        'XBMReader [warning]: short file' errorPrintCR.
         ^ nil
     ].
 
@@ -137,18 +137,18 @@
     ].
 
     (line startsWith:'#define') ifFalse:[
-        'XBMReader: format error (expected #define)' errorPrintNL.
+        'XBMReader [warning]: format error (expected #define)' errorPrintCR.
         ^ nil
     ].
 
     index := line indexOf:(Character space).
     index := line indexOf:(Character space) startingAt:(index + 1).
     (index == 0) ifTrue:[
-        'XBMReader: format error' errorPrintNL.
+        'XBMReader [warning]: format error' errorPrintCR.
         ^ nil
     ].
     ((line copyTo:index - 1) endsWith:'width') ifFalse:[
-        'XBMReader: format error (expected width)' errorPrintNL.
+        'XBMReader [warning]: format error (expected width)' errorPrintCR.
         ^ nil
     ].
     line := line copyFrom:(index + 1).
@@ -158,11 +158,11 @@
     index := line indexOf:(Character space).
     index := line indexOf:(Character space) startingAt:(index + 1).
     (index == 0) ifTrue:[
-        'XBMReader: format error' errorPrintNL.
+        'XBMReader [warning]: format error' errorPrintCR.
         ^ nil
     ].
     ((line copyTo:index - 1) endsWith:'height') ifFalse:[
-        'XBMReader: format error (expected height)' errorPrintNL.
+        'XBMReader [warning]: format error (expected height)' errorPrintCR.
         ^ nil
     ].
     line := line copyFrom:(index + 1).
@@ -212,7 +212,7 @@
      XBMReader fromFile:'bitmaps/globe1.xbm'
     "
 
-    "Modified: 23.4.1996 / 12:38:05 / cg"
+    "Modified: 10.1.1997 / 18:16:34 / cg"
 ! !
 
 !XBMReader methodsFor:'writing to file'!
@@ -233,7 +233,7 @@
 
     outStream := FileStream newFileNamed:aFileName.
     outStream isNil ifTrue:[
-        'XBMReader: create error' errorPrintNL. 
+        'XBMReader [error]: create error' errorPrintCR. 
         ^ nil
     ].
 
@@ -287,12 +287,12 @@
      XBMReader save:(Image fromFile:'bitmaps/hello_world.icon') onFile:'test.xbm'
     "
 
-    "Modified: 20.5.1996 / 11:54:23 / cg"
+    "Modified: 10.1.1997 / 18:16:47 / cg"
 ! !
 
 !XBMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.27 1996-05-20 09:55:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.28 1997-01-10 17:31:43 cg Exp $'
 ! !
 XBMReader initialize!