Etoys: Graphics-kfr.7.mcz

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 mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev