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!