FaceReader.st
changeset 808 495535230e80
parent 647 6f26c76aa0c9
child 1739 971f1a3970a3
--- a/FaceReader.st	Tue Feb 03 17:34:22 1998 +0100
+++ b/FaceReader.st	Tue Feb 03 17:52:33 1998 +0100
@@ -98,7 +98,7 @@
 
     line := aStream nextLine.
     line isNil ifTrue:[
-        ^ nil
+        ^ self fileFormatError:'short read'.
     ].
 
     inHeader := true.
@@ -115,7 +115,7 @@
     ].
 
     depth == 8 ifFalse:[
-        self error:'only depth 8 supported'
+        ^ self fileFormatError:'only depth 8 supported'.
     ].
 
     [line isEmpty] whileTrue:[
@@ -149,12 +149,12 @@
     "
     "this is NOT steve jobs :-)"
 
-    "Modified: 23.4.1996 / 12:23:38 / cg"
+    "Modified: / 3.2.1998 / 17:50:52 / cg"
 ! !
 
 !FaceReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FaceReader.st,v 1.24 1997-06-30 20:55:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FaceReader.st,v 1.25 1998-02-03 16:52:33 cg Exp $'
 ! !
 FaceReader initialize!