[squeak-dev] The Trunk: Morphic-mt.849.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Apr 9 11:55:16 UTC 2015
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.849.mcz
==================== Summary ====================
Name: Morphic-mt.849
Author: mt
Time: 9 April 2015, 1:54:41.384 pm
UUID: 37f99479-4262-b749-a6e3-df4d6fbc5cd0
Ancestors: Morphic-mt.848
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.
=============== Diff against Morphic-mt.848 ===============
Item was changed:
----- Method: AlternatePluggableListMorphOfMany>>mouseUp: (in category 'event handling') -----
mouseUp: event
event hand newKeyboardFocus: self.
+ hasFocus := true.!
- hasFocus := true.
- ^self!
Item was changed:
----- Method: PluggableListMorphOfMany>>mouseUp: (in category 'event handling') -----
mouseUp: event
+ dragOnOrOff := nil. "So improperly started drags will have not effect"
+ event hand newKeyboardFocus: self.
+ hasFocus := true.!
- dragOnOrOff := nil. "So improperly started drags will have not effect"!
Item was changed:
----- Method: SimpleHierarchicalListMorph>>mouseUp: (in category 'event handling') -----
mouseUp: event
| aMorph |
aMorph := self itemFromPoint: event position.
aMorph ifNil: [^self].
aMorph highlightedForMouseDown ifFalse: [^self].
aMorph highlightForMouseDown: false.
model okToChange ifFalse: [^self].
"No change if model is locked"
((autoDeselect isNil or: [autoDeselect]) and: [aMorph == selectedMorph])
ifTrue: [self setSelectedMorph: nil]
ifFalse: [self setSelectedMorph: aMorph].
+ event hand newKeyboardFocus: self.
Cursor normal show!
More information about the Squeak-dev
mailing list
|