TIFFReader.st
changeset 329 5fb99e0734e4
parent 317 5de89b17ed48
child 331 304f9c439efa
--- a/TIFFReader.st	Fri Aug 02 23:13:49 1996 +0200
+++ b/TIFFReader.st	Thu Sep 05 17:37:54 1996 +0200
@@ -755,17 +755,21 @@
 
     |oldPos offset string|
 
+    n == 0 ifTrue:[^ ''].
+
     string := String new:(n - 1).
     (n <= 4) ifTrue:[
-	inStream nextBytes:(n - 1) into:string
+        inStream nextBytes:(n - 1) into:string
     ] ifFalse:[
-	offset := inStream nextLongMSB:(byteOrder ~~ #lsb).
-	oldPos := inStream position.
-	inStream position:(offset + 1).
-	inStream nextBytes:(n - 1) into:string.
-	inStream position:oldPos
+        offset := inStream nextLongMSB:(byteOrder ~~ #lsb).
+        oldPos := inStream position.
+        inStream position:(offset + 1).
+        inStream nextBytes:(n - 1) into:string.
+        inStream position:oldPos
     ].
     ^ string
+
+    "Modified: 5.9.1996 / 12:21:08 / cg"
 !
 
 readFracts:nFracts
@@ -1653,6 +1657,6 @@
 !TIFFReader  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.38 1996-07-11 19:15:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.39 1996-09-05 15:37:54 cg Exp $'
 ! !
 TIFFReader initialize!