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.