[etoys-dev] Etoys: MorphicExtras-kfr.51.mcz

[commits at source.squeak.org]

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 at 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 at 0 rule: Form paint.
-     self invalidRect: (self position  extent: self extent) .
-     d _ (delays at: imageIndex) ifNil: [0].
-     nextTime := Time millisecondClockValue + d!