oops - handle read of binaries
authorClaus Gittinger <cg@exept.de>
Tue, 22 Apr 1997 23:47:38 +0200
changeset 558 98c4c983a02b
parent 557 4eb806135e3f
child 559 06bcbb6e3f32
oops - handle read of binaries
XBMReader.st
--- a/XBMReader.st	Mon Apr 21 21:16:58 1997 +0200
+++ b/XBMReader.st	Tue Apr 22 23:47:38 1997 +0200
@@ -94,7 +94,11 @@
         ^ false
     ].
     [line startsWith:'#'] whileFalse:[
-        line := inStream nextLine.
+        Stream readErrorSignal handle:[:ex |
+            line := nil.
+        ] do:[
+            line := inStream nextLine.
+        ].
         line isNil ifTrue:[
             inStream close.
             ^ false
@@ -114,7 +118,7 @@
     inStream close.
     ^ true
 
-    "Modified: 21.4.1997 / 17:10:52 / cg"
+    "Modified: 22.4.1997 / 23:12:00 / cg"
 ! !
 
 !XBMReader methodsFor:'reading from file'!
@@ -311,6 +315,6 @@
 !XBMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.34 1997-04-21 15:11:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.35 1997-04-22 21:47:38 cg Exp $'
 ! !
 XBMReader initialize!