Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cmm.734.mcz==================== Summary ====================
Name: Morphic-cmm.734
Author: cmm
Time: 19 July 2014, 11:15:46.849 am
UUID: 7329b02c-602d-4b35-bef8-8faa85201f99
Ancestors: Morphic-kfr.733
Revert #flash to non-blocking.
=============== Diff against Morphic-kfr.733 ===============
Item was changed:
----- Method: Morph>>flash (in category 'macpal') -----
flash
- "Flash me"
| originalColor |
originalColor := self color.
+ [ self color:
+ (originalColor
+ ifNil: [ Color black ]
+ ifNotNil: [ (originalColor alpha: 1) negated ]) ]
+ ensure:
+ [ self world ifNotNil: [ : w | w displayWorldSafely ].
+ self color: originalColor ]!
- 1
- to: 2
- do: [:i | [self
- color: (originalColor
- ifNil: [Color black]
- ifNotNil: [((originalColor alpha: 1)
- adjustSaturation: 0.8
- brightness: 0) negated])]
- ensure: [self world
- ifNotNil: [:w | w displayWorldSafely].
- (Delay forMilliseconds: 50) wait.
- [self color: originalColor]
- ensure: [self world
- ifNotNil: [:w | w displayWorldSafely].
- (Delay forMilliseconds: 50) wait]]]!