The Trunk: Morphic-mt.1428.mcz

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!