[Pkg] The Trunk: Morphic-mt.1428.mcz

commits at source.squeak.org commits at source.squeak.org
Fri May 11 08:02:59 UTC 2018

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:

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

Name: Morphic-mt.1428
Author: mt
Time: 11 May 2018, 10:02:42.214977 am
UUID: 843c8d82-5e60-8746-b610-418f2d5619fd
Ancestors: Morphic-mt.1427

Reset mouse cursor for pop-up menus.

=============== Diff against Morphic-mt.1427 ===============

Item was changed:
  ----- Method: MenuMorph>>popUpAt:forHand:in:allowKeyboard: (in category 'control') -----
  popUpAt: aPoint forHand: hand in: aWorld allowKeyboard: aBoolean 
  	"Present this menu at the given point under control of the given 
  	| evt |
  	aWorld submorphs
  		select: [:each | (each isKindOf: MenuMorph)
  				and: [each stayUp not]]
  		thenCollect: [:menu | menu delete].
  	self items isEmpty
  		ifTrue: [^ self].
  	MenuIcons decorateMenu: self.
  	(self submorphs
  		select: [:m | m isKindOf: UpdatingMenuItemMorph])
  		do: [:m | m updateContents].
  	"precompute width"
  		positionAt: aPoint
  		relativeTo: (selectedItem
  				ifNil: [self items first])
  		inWorld: aWorld.
  	aWorld addMorphFront: self.
  	"Acquire focus for valid pop up behavior"
+ 	hand
+ 		newMouseFocus: self;
+ 		showTemporaryCursor: nil.
- 	hand newMouseFocus: self.
  		ifTrue: [
  			originalFocusHolder := hand keyboardFocus.
  			hand newKeyboardFocus: self.
  			self showKeyboardHelp].
  	evt := hand lastEvent.
  	(evt isKeyboard
  			or: [evt isMouse
  					and: [evt anyButtonPressed not]])
  		ifTrue: ["Select first item if button not down"
  			self moveSelectionDown: 1 event: evt
  			"Select first item if button not down"].
  	self updateColor.
  	self changed!

More information about the Packages mailing list