Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.875.mcz

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

Name: Morphic-mt.875
Author: mt
Time: 15 April 2015, 5:09:55.702 pm
UUID: 7e5bc4b9-af21-3c4e-819f-2a09e72be672
Ancestors: Morphic-mt.874

Consider keyboardFocusDelegate in text fields, lists, and in the hand when releasing the focus.

=============== Diff against Morphic-mt.874 ===============

Item was changed:
  ----- Method: HandMorph>>releaseKeyboardFocus: (in category 'focus handling') -----
  releaseKeyboardFocus: aMorph
  	"If the given morph had the keyboard focus before, release it"
+ 	self keyboardFocus == aMorph keyboardFocusDelegate
+ 		ifTrue:[self releaseKeyboardFocus].!
- 	self keyboardFocus == aMorph ifTrue:[self releaseKeyboardFocus].!

Item was changed:
  ----- Method: PluggableListMorph>>mouseEnter: (in category 'events') -----
  mouseEnter: event
+ 	
  	super mouseEnter: event.
+ 	
- 	self flag: #arNote. "remove this - keyboard input automatically goes right"
  	Preferences mouseOverForKeyboardFocus ifTrue:[
+ 		event hand newKeyboardFocus: self. ]!
- 	event hand newKeyboardFocus: self. ]!

Item was changed:
  ----- Method: PluggableTextMorph>>mouseEnter: (in category 'event handling') -----
  mouseEnter: event
  	super mouseEnter: event.
  	selectionInterval ifNotNil:
  		[textMorph editor selectInterval: selectionInterval; setEmphasisHere].
  	textMorph selectionChanged.
  	Preferences mouseOverForKeyboardFocus ifTrue:[
+ 		event hand newKeyboardFocus: self]!
- 	event hand newKeyboardFocus: textMorph]!

Item was changed:
  ----- Method: PluggableTextMorph>>mouseLeave: (in category 'event handling') -----
  mouseLeave: event
  	"The mouse has left the area of the receiver"
  
  	textMorph ifNotNil: [selectionInterval := textMorph editor selectionInterval].
  	super mouseLeave: event.
  	Preferences mouseOverForKeyboardFocus ifTrue:
+ 		[event hand releaseKeyboardFocus: self]!
- 		[event hand releaseKeyboardFocus: textMorph]!