I've often wondered why, when I search for some string that isn't
there, I see the text morph flash sometimes, but not always. Here's
a fix.
Cheers,
Bob
'From Squeak4.4 of 1 March 2013 [latest update:
#12489] on 18 August 2013 at 11:49:45 am'!
!Morph methodsFor: 'macpal' stamp: 'raa 8/18/2013 06:44'!
flash
| originalColor |
originalColor := self color.
[ self color:
(originalColor
ifNil: [ Color black ]
ifNotNil: [ (originalColor alpha: 1) negated ]) ]
ensure:
[ self world ifNotNil: [ : w | w displayWorldSafely.
(Delay forMilliseconds: 100) wait ].
self color: originalColor ]! !