Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.628.mcz
==================== Summary ====================
Name: Morphic-cmm.628 Author: cmm Time: 24 November 2012, 6:35:52.098 pm UUID: 0e080867-dc4d-42b1-89b1-75135d4ae25e Ancestors: Morphic-bf.627
Morph>>#flash must not assume morph is not transparent and not already black.
=============== Diff against Morphic-bf.627 ===============
Item was changed: ----- Method: Morph>>flash (in category 'macpal') ----- flash + | 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 ]! - | c w | - c := self color. - self color: Color black. - (w := self world) ifNotNil: [w displayWorldSafely]. - self color: c - !