A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-kfr.731.mcz

==================== Summary ====================

Name: Morphic-kfr.731
Author: kfr
Time: 3 July 2014, 2:28:57.179 pm
UUID: 05ec5d84-8101-f94b-847f-d4e467ddeead
Ancestors: Morphic-kfr.730

Small fix for keyboard focus.
Double flash for morph implementation

=============== Diff against Morphic-cmm.729 ===============

Item was changed:
  ----- Method: AlternatePluggableListMorphOfMany>>mouseUp: (in category 'event handling') -----
  mouseUp: event
+ 	
+ 	event hand newKeyboardFocus: self. 
+ 	hasFocus := true.
+ 	^self!
- 	"Not needed.  Overridden to do nothing."!

Item was changed:
  ----- Method: Morph>>flash (in category 'macpal') -----
  flash
+ 	"Flash me"
  	| originalColor |
  	originalColor := self color.
+ 	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]]]!
- 	[ self color:
- 		(originalColor
- 			ifNil: [ Color black ]
- 			ifNotNil: [( (originalColor alpha: 1) adjustSaturation: 0.8 brightness: 0) negated ]) ]
- 		ensure:
- 			[ self world ifNotNil: [ : w | w displayWorldSafely ].
- 			self color: originalColor ]!

Item was changed:
  ----- Method: TextMorphForEditView>>mouseDown: (in category 'event handling') -----
  mouseDown: event
  
  	event yellowButtonPressed ifTrue: [
+ 		(self editor yellowButtonDown: event) ifTrue:[^self].
- 		(editor yellowButtonDown: event) ifTrue:[^self].
  		^ editView yellowButtonActivity: event shiftPressed].
  	^ super mouseDown: event
  !