Karl Ramberg uploaded a new version of Graphics to project Etoys: http://source.squeak.org/etoys/Graphics-kfr.7.mcz
==================== Summary ====================
Name: Graphics-kfr.7 Author: kfr Time: 22 October 2011, 7:20:39 pm UUID: 68b48ff9-4c05-ba4a-98ec-a726df9f0a1f Ancestors: Graphics-bf.6
Do color palette padding with Color Black instead of color transparent. Maybe we can catch if the gif should be diplayed opaque...
=============== Diff against Graphics-bf.6 ===============
Item was changed: ----- Method: AnimatedGIFReadWriter>>allImages (in category 'accessing') ----- allImages + | body colorTable newColors | - | body colorTable | stream class == ReadWriteStream ifFalse: [ stream binary. self on: (ReadWriteStream with: (stream contentsOfEntireFile))]. localColorTable _ nil. forms _ OrderedCollection new. delays _ OrderedCollection new. comments _ OrderedCollection new. self readHeader. [(body _ self readBody) == nil] whileFalse: [colorTable _ localColorTable ifNil: [colorPalette]. transparentIndex ifNotNil: [transparentIndex + 1 > colorTable size + ifTrue: [colorTable := colorTable forceTo: transparentIndex + 1 paddingWith: Color white]. - ifTrue: [colorTable _ colorTable forceTo: transparentIndex + 1 paddingWith: Color white]. colorTable at: transparentIndex + 1 put: Color transparent]. + newColors := Array new: (1 bitShift: body depth). + 1 to: newColors size do: [:i | + i <= colorTable size + ifTrue: [newColors at: i put: (colorTable at: i)] + ifFalse: [newColors at: i put: Color black]]. + body colors: newColors. - body colors: colorTable. forms add: body. delays add: delay]. ^ forms!
etoys-dev@lists.squeakfoundation.org