[etoys-dev] Etoys: Graphics-kfr.7.mcz

[commits at source.squeak.org]

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!