#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Sun, 10 Apr 2016 13:38:50 +0200
changeset 3640 8a96d595df32
parent 3637 84c4534403c5
child 3641 932386e8e463
child 3643 2233cd0da7bd
#REFACTORING by cg class: WindowsIconReader changed: #fromWindowsBMPStream:alreadyRead: (send #nextUnsignedInt32MSB: instead of #nextUnsignedLongMSB:)
WindowsIconReader.st
--- a/WindowsIconReader.st	Fri Apr 08 13:25:52 2016 +0200
+++ b/WindowsIconReader.st	Sun Apr 10 13:38:50 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -1216,7 +1214,7 @@
     ].
     aStream nextBytes:(14-bytesAlreadyRead size) into:fileHeader startingAt:(1+bytesAlreadyRead size).
 
-    iSize := aStream nextUnsignedLongMSB:false.
+    iSize := aStream nextUnsignedInt32MSB:false.
     iSize > 124 ifTrue:[
         ^ self fileFormatError:'unknown format'.
     ].