Add a guard in TimerElement

pharo-graphics · Jun 12, 2024 · 51fb8ef · 51fb8ef
1 parent ae640f5
commit 51fb8ef
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/Mooflod.package/MfTimerElement.class/instance/initializeAnimation.st b/Mooflod.package/MfTimerElement.class/instance/initializeAnimation.st
@@ -1,16 +1,21 @@
 initialization
 initializeAnimation
 
+	| started |
 	anim := BlAnimation new
 		        duration: 1 seconds;
 		        loops: value.
+	started := false.
+
 	self addEventHandlerOn: BlMouseDownEvent do: [ :a |
+		started ifFalse: [ 
+			started := true.
 		anim addEventHandler: (BlEventHandler
 				 on: BlAnimationLoopDoneEvent
 				 do: [ :e |
 					 currentAngle := currentAngle - decreasingAngleStep.
 					 self updateAnnulusAngle: currentAngle.
 					 self updateValue.
-					 self background: Color random ]) ].
+					 self background: Color random ]) ]] .
 
 	self addAnimation: anim