--- 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!