Etoys: MorphicExtras-kfr.52.mcz

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