Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.52.mcz
==================== Summary ====================
Name: MorphicExtras-kfr.52 Author: kfr Time: 19 October 2011, 11:40:52 am UUID: f3c3172d-2890-cb40-a3ef-8f18f8c86c17 Ancestors: MorphicExtras-kfr.51
fixing
=============== Diff against MorphicExtras-kfr.51 ===============
Item was changed: ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') ----- step + | form delay | + images isEmpty + ifTrue: [^ self]. + nextTime > Time millisecondClockValue + ifTrue: [^self]. + imageIndex > 0 ifTrue: [ + form := images at: imageIndex. + form displayOn: self image at: 0@0 rule: + ((self isOpaque) ifTrue:[Form paint] ifFalse:[Form erase]). + ]. + imageIndex _ imageIndex \ images size + 1. + form := images at: imageIndex. + form displayOn: self image at: 0@0 rule: Form paint. + self changed. + delay := (delays at: imageIndex) ifNil: [0]. + nextTime := Time millisecondClockValue +delay! - | f d | - images isEmpty - ifTrue: [^ self]. - nextTime > Time millisecondClockValue - ifTrue: [^ self]. - imageIndex > 0 - ifTrue: [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!
etoys-dev@lists.squeakfoundation.org