The Trunk: Morphic-dtl.727.mcz

David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.727.mcz

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

Name: Morphic-dtl.727
Author: dtl
Time: 29 June 2014, 5:45:16.039 pm
UUID: 0c60a49f-4fee-44f4-b384-4712b9680000
Ancestors: Morphic-eem.726

Merge Morphic-kfr.723 (see treated inbox)

Name: Morphic-kfr.723
Author: kfr
Time: 25 June 2014, 10:32:51.443 pm
UUID: 773d8298-086f-ce47-b8f2-de2b4ced346b
Ancestors: Morphic-kfr.722

Handling of mouse enter/leave action. Respect the Preferences mouseOverForKeyboardFocus

=============== Diff against Morphic-eem.726 ===============

Item was changed:
+ ----- Method: PluggableListMorph>>mouseEnter: (in category 'events') -----
- ----- Method: PluggableListMorph>>mouseEnter: (in category 'event handling') -----
  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: PluggableListMorph>>mouseLeave: (in category 'events') -----
  mouseLeave: event
  "The mouse has left the area of the receiver"
 
  super mouseLeave: event.
+ Preferences mouseOverForKeyboardFocus ifTrue:[
+ event hand releaseKeyboardFocus: self]!
- event hand releaseKeyboardFocus: self!

Item was changed:
  ----- Method: PluggableListMorph>>mouseUp: (in category 'events') -----
  mouseUp: event
  "The mouse came up within the list; take appropriate action"
  | row |
  row := self rowAtLocation: event position.
  "aMorph ifNotNil: [aMorph highlightForMouseDown: false]."
  model okToChange
  ifFalse: [^ self].
  "No change if model is locked"
  row = self selectionIndex
  ifTrue: [(autoDeselect ifNil: [true]) ifTrue:[row = 0 ifFalse: [self changeModelSelection: 0] ]]
  ifFalse: [self changeModelSelection: (self modelIndexFor: row)].
+ event hand newKeyboardFocus: self.
+ hasFocus := true.
  Cursor normal show!

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: textMorph]!
- event hand newKeyboardFocus: textMorph!