<div dir="ltr">Hi,<div>There seems to be a regression regarding mouseFocus vs. keyboardFocus.</div><div>mouseFocus would scroll any pane on mouseOver disregarding the keyboard focus.</div><div><br></div><div>This is at least my preferred style. Then there is no need to click before scrolling a pane, but I don't lose the keyboardFocus because I accidentally touched the trackpad or moved the mouse.</div><div><br></div><div>Now there seem to be click for keyboardFocus or mouseOver for keyboardFocus only.</div><div><br></div><div>Karl</div></div><div class="gmail_extra"><br><div class="gmail_quote">On Thu, Apr 9, 2015 at 1:54 PM, <span dir="ltr"><<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Marcel Taeumel uploaded a new version of Morphic to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Morphic-mt.849.mcz" target="_blank">http://source.squeak.org/trunk/Morphic-mt.849.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Morphic-mt.849<br>
Author: mt<br>
Time: 9 April 2015, 1:54:41.384 pm<br>
UUID: 37f99479-4262-b749-a6e3-df4d6fbc5cd0<br>
Ancestors: Morphic-mt.848<br>
<br>
Fixed some widgets that failed to grab the keyboard on mouse-up, which is the normal way if #mouseOverForKeyboardFocus is not enabled in the preferences.<br>
<br>
=============== Diff against Morphic-mt.848 ===============<br>
<br>
Item was changed:<br>
----- Method: AlternatePluggableListMorphOfMany>>mouseUp: (in category 'event handling') -----<br>
mouseUp: event<br>
<br>
event hand newKeyboardFocus: self.<br>
+ hasFocus := true.!<br>
- hasFocus := true.<br>
- ^self!<br>
<br>
Item was changed:<br>
----- Method: PluggableListMorphOfMany>>mouseUp: (in category 'event handling') -----<br>
mouseUp: event<br>
<br>
+ dragOnOrOff := nil. "So improperly started drags will have not effect"<br>
+ event hand newKeyboardFocus: self.<br>
+ hasFocus := true.!<br>
- dragOnOrOff := nil. "So improperly started drags will have not effect"!<br>
<br>
Item was changed:<br>
----- Method: SimpleHierarchicalListMorph>>mouseUp: (in category 'event handling') -----<br>
mouseUp: event<br>
| aMorph |<br>
aMorph := self itemFromPoint: event position.<br>
aMorph ifNil: [^self].<br>
aMorph highlightedForMouseDown ifFalse: [^self].<br>
aMorph highlightForMouseDown: false.<br>
model okToChange ifFalse: [^self].<br>
"No change if model is locked"<br>
((autoDeselect isNil or: [autoDeselect]) and: [aMorph == selectedMorph])<br>
ifTrue: [self setSelectedMorph: nil]<br>
ifFalse: [self setSelectedMorph: aMorph].<br>
+ event hand newKeyboardFocus: self.<br>
Cursor normal show!<br>
<br>
<br>
</blockquote></div><br></div>