[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