The Trunk: Morphic-mt.875.mcz

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