Here a better version:

 (self valueOfProperty: #colorBeforeFlashing ifAbsent: [self color])
    in: [:c |
      self setProperty: #colorBeforeFlashing toValue: c.
      self color: ((c ifNil: [Color white]) alpha: 1) negated.
      ActiveWorld displayWorldSafely.
		
      self
        removeAlarm: #color:;
        removeAlarm: #removeProperty:.
      self
        addAlarm: #color: with: c after: 100;
        addAlarm: #removeProperty: with: #colorBeforeFlashing after: 100]. 

I am not exactly sure, why an explicit call to the render loop is needed...
But this way, it works without blocking the event loop. This "ActiveWorld
displayWorldSafely" is still annoying...

Best,
Marcel



--
View this message in context: http://forum.world.st/computers-too-fast-these-days-tp4704067p4704117.html
Sent from the Squeak - Dev mailing list archive at Nabble.com.