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