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

[commits at source.squeak.org]

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 at 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 at 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!