The Trunk: Morphic-cmm.734.mcz

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

On Sat, Jul 19, 2014 at 04:16:23PM +0000, [hidden email] wrote:
I've lost track of the various versions of Morph>>flash, but reverting to
this one seems to behave well on my PC.

Dave