Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1428.mcz
==================== 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 hand." | 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" self 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. aBoolean 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!
packages@lists.squeakfoundation.org