I was using this morph for the status of a process. I initially thought that
the color used from Etoys (blue for active, red for paused) were part of the
TickIndicatorMorph behavior. I found it all in
ScriptStatusControl>>mouseUpTick:onItem: - and I wonder now whether the
change of color could be part of the isTicking: message. Looking at the
method makes it clear:

mouseUpTick: evt onItem: aMorph
     self removeAlarm: #offerTickingMenu:.
     aMorph color: (Color r: 0.767 g: 0.767 b: 1.0).
     (scriptInstantiation status == #ticking) ifTrue:[
          scriptInstantiation status: #paused.
          aMorph color: (Color r: 1.0 g: 0.774 b: 0.774).
          aMorph isTicking: false.
       ] ifFalse:[
          scriptInstantiation status: #ticking.
          aMorph color: (Color r: 0.767 g: 0.767 b: 1.0).
          aMorph isTicking: true.
     ].
     scriptInstantiation updateAllStatusMorphs.

These are always TickIndicatorMorphs.

-lyndon