Etoys: MorphicExtras-kfr.51.mcz

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

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

Name: MorphicExtras-kfr.51
Author: kfr
Time: 19 October 2011, 3:13:58 am
UUID: e4389196-4418-4b4c-b430-9d7c7168f48a
Ancestors: MorphicExtras-kfr.50

Better formating and use :=

=============== Diff against MorphicExtras-kfr.50 ===============

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: [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!
-     | 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