'From etoys2.1 of 26 July 2007 [latest update: #1516] on 28 July 2007 at 11:50:30 pm'!
"Change Set:		animatedImageFix-sw
Date:			28 July 2007
Author:			Scott Wallace

Fix an update problem with animated images; derived from from a fix posted to Mantis by Jerome Peace."!


!AnimatedImageMorph methodsFor: 'stepping and presenter' stamp: 'sw 7/28/2007 23:49'!
step
	"Period action: animate the image."

	| d |
	images isEmpty ifTrue: [^ self].
		
	nextTime > Time millisecondClockValue
		ifTrue: [^self].
	self image: (images at: (imageIndex _ imageIndex \\ images size + 1)).
	self changed . 
	d _ (delays at: imageIndex) ifNil: [0].
	nextTime := Time millisecondClockValue + d! !