changeset 3640 | 8a96d595df32 |
parent 3604 | 5d4d8906ade6 |
child 3726 | 37f44a063d46 |
--- 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'. ].