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 ]! !