--- a/TIFFRdr.st Tue Sep 10 00:58:38 1996 +0200
+++ b/TIFFRdr.st Fri Sep 13 18:45:31 1996 +0200
@@ -1412,6 +1412,7 @@
result offset ok msb|
inStream := aStream.
+ aStream binary.
char1 := aStream next.
char2 := aStream next.
@@ -1419,11 +1420,11 @@
'TIFFReader: not a tiff file' errorPrintNL.
^ nil
].
- (char1 == $I) ifTrue:[
+ (char1 == $I asciiValue) ifTrue:[
byteOrder := #lsb.
msb := false.
] ifFalse:[
- (char1 == $M) ifTrue:[
+ (char1 == $M asciiValue) ifTrue:[
byteOrder := #msb.
msb := true.
] ifFalse:[
@@ -1432,8 +1433,6 @@
]
].
- aStream binary.
-
version := self readShort.
(version ~~ 42) ifTrue:[
'TIFFReader: version of tiff-file not supported' errorPrintNL.
@@ -1561,7 +1560,7 @@
].
^ result
- "Modified: 22.4.1996 / 19:12:12 / cg"
+ "Modified: 13.9.1996 / 18:43:01 / cg"
! !
!TIFFReader methodsFor:'writing to file'!
@@ -1657,6 +1656,6 @@
!TIFFReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.39 1996-09-05 15:37:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.40 1996-09-13 16:45:14 cg Exp $'
! !
TIFFReader initialize!