Flashing is basically animation. All you need is an ImageMorph and to add stepping using the step method.
step is the method that does the animation loop (step = frame)
stepTime you return how much time will be spend be spend per step
this is my step method from my project ChronosManager which basically does the seconds indicator animation, each second basically display a different image that is appropriate for that second.
step
������ "super step."
������ self managerModel mode = 'clock'
������ ������ ifTrue: [ time := DateAndTime current.
������ ������ ������ timeStr color: Color white ].
������ self managerModel mode = 'timer' | (self managerModel mode = 'stopwatch')
������ ������ ifTrue:
������ ������ ������ [ time := ('0:' , self managerModel timeDisplay) asDuration minutes asDuration.
������ ������ ������ self managerModel phase = 'work'
������ ������ ������ ������ ifTrue: [ timeStr color: Color green ].
������ ������ ������ self managerModel phase = 'break'
������ ������ ������ ������ ifTrue: [ timeStr color: Color red ] ].
������ secondsTimer form: (self secondsTimerForm at: time seconds + 1).
������ self setTimeLabel.
������ World submorphs do: [ :each| (each isKindOf: TaskbarMorph) ifTrue: [each�� updateTaskButtons]]
stepTime
������ ^ 1000