--- a/WindowsIconReader.st Mon Sep 08 20:26:48 1997 +0200
+++ b/WindowsIconReader.st Wed Sep 10 23:28:18 1997 +0200
@@ -73,7 +73,7 @@
inStream binary.
ok := false.
- inStream size > 16 ifTrue:[
+ inStream fileSize > 16 ifTrue:[
header := ByteArray uninitializedNew:4.
inStream nextBytes:4 into:header.
@@ -310,7 +310,7 @@
inStream := aStream.
aStream binary.
- fileSize := aStream size.
+ fileSize := aStream fileSize.
fileSize < 16 ifTrue:[
'WinIconReader [warning]: short file' infoPrintNL.
@@ -400,7 +400,7 @@
inStream := aStream.
aStream binary.
- fileSize := aStream size.
+ fileSize := aStream fileSize.
"read the header"
header := ByteArray uninitializedNew:16r54.
@@ -668,6 +668,6 @@
!WindowsIconReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.35 1997-07-28 10:57:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.36 1997-09-10 21:28:18 cg Exp $'
! !
WindowsIconReader initialize!