size is going to be eliminated from the stream
authorClaus Gittinger <cg@exept.de>
Wed, 10 Sep 1997 23:28:18 +0200
changeset 692 e6af4c70e066
parent 691 bb5dfbec2a7a
child 693 e228da8c7ddf
size is going to be eliminated from the stream protocol. Use #fileSize.
WinIconRdr.st
WindowsIconReader.st
--- a/WinIconRdr.st	Mon Sep 08 20:26:48 1997 +0200
+++ b/WinIconRdr.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/Attic/WinIconRdr.st,v 1.35 1997-07-28 10:57:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.36 1997-09-10 21:28:18 cg Exp $'
 ! !
 WindowsIconReader initialize!
--- 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!