Etoys: MorphicExtras-kfr.50.mcz

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-kfr.50.mcz

==================== Summary ====================

Name: MorphicExtras-kfr.50
Author: kfr
Time: 19 October 2011, 2:38:40 am
UUID: 76786be2-4ee6-d543-a84b-6b21898163b8
Ancestors: MorphicExtras-kfr.49

Display animated gifs better.

=============== Diff against MorphicExtras-kfr.49 ===============

Item was changed:
  ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') -----
  step
+     | f d |
+     images isEmpty
+         ifTrue: [^ self].
+     nextTime > Time millisecondClockValue
+         ifTrue: [^self].
+     imageIndex > 0 ifTrue: [
- | d |
- images isEmpty ifTrue: [^ self].
 
+         f _ images at: imageIndex.
+         f displayOn: self image at: 0@0 rule:
+ ((self isOpaque) ifTrue:[Form paint] ifFalse:[Form erase]).
+     ].
+     imageIndex _ imageIndex \\ images size + 1.
+     f _ images at: imageIndex.
+     f displayOn: self image at: 0@0 rule: Form paint.
+     self invalidRect: (self position  extent: self extent) .
+     d _ (delays at: imageIndex) ifNil: [0].
+     nextTime := Time millisecondClockValue + d!
- nextTime > Time millisecondClockValue
- ifTrue: [^self].
- self changed .
- self image: (images at:
- (imageIndex _ imageIndex \\ images size + 1)).
- self changed .
- d _ (delays at: imageIndex) ifNil: [0].
- nextTime := Time millisecondClockValue + d
- !

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev