--- a/Label.st Tue May 17 14:42:25 2016 +0100
+++ b/Label.st Thu May 19 09:50:34 2016 +0100
@@ -23,7 +23,7 @@
!
Object subclass:#AnimatorState
- instanceVariableNames:'timedBlock nextOffset logoShown moveDirection'
+ instanceVariableNames:'timedBlock nextOffset logoShown moveDirection pointerEntered'
classVariableNames:''
poolDictionaries:''
privateIn:Label
@@ -1499,6 +1499,11 @@
self computeLabelOrigin.
^ self.
].
+ (controller notNil and:[controller entered]) ifTrue:[
+ "/ pause animation
+ Processor addTimedBlock:(animatorState timedBlock) after:0.5 seconds.
+ ^ self.
+ ].
offset := animatorState nextOffset max:0.
@@ -1555,6 +1560,8 @@
|timedBlock|
+ self enableEnterLeaveEvents.
+
self stopAnimation.
timedBlock := [ self doAnimate ].
@@ -2142,6 +2149,14 @@
nextOffset := something.
!
+pointerEntered
+ ^ pointerEntered
+!
+
+pointerEntered:something
+ pointerEntered := something.
+!
+
timedBlock
^ timedBlock
!