#REFACTORING by cg
class: WindowsIconReader
changed: #fromWindowsBMPStream:alreadyRead: (send #nextUnsignedInt32MSB: instead of #nextUnsignedLongMSB:)
--- 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'.
].