The Inbox: Morphic-ct.1650.mcz

Christoph Thiede uploaded a new version of Morphic to project The Inbox:
http://source.squeak.org/inbox/Morphic-ct.1650.mcz

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

Name: Morphic-ct.1650
Author: ct
Time: 24 April 2020, 6:40:10.333958 pm
UUID: 953da2d7-9644-a446-80c7-ceee0a5ec70f
Ancestors: Morphic-mt.1649

Proposal: Fix a small glitch in menu selection logic. In a labeled menu, you can hover the first item and then hover the title/close button, but the selection will be only reset when the whole menu is unhovered. This is confusing because pressing the mouse button does not actually trigger the menu item.

=============== Diff against Morphic-mt.1649 ===============

Item was changed:
  ----- Method: MenuMorph>>mouseMove: (in category 'events') -----
  mouseMove: evt
+ "If the mouse moves over an item not selected, we try to set it as selected. If this happens depends on whether the current selected item wants to release its selection."
- " If the mouse moves over an item not selected, we try to set it as selected.
- If this happens depends on that the current selected item wants to release
- its selection. "
 
  self selectedItem ifNil: [
  self
+ selectItem: (self items
+ detect: [:each | each containsPoint: evt position]
+ ifNone: [nil])
- selectItem: (
- self items
- detect: [ :each | each containsPoint: evt position ]
- ifNone: [ nil ])
  event: evt].
+
+ "Transfer control to *either* the currently active submenu or the pop up owner, if any. Since the active sub menu is always displayed upfront check it first."
+ self selectedItem ifNotNil: [:item |
+ (item activateSubmenu: evt)
+ ifTrue: [^ self].
+ (item containsPoint: evt position)
+ ifFalse: [self selectItem: nil event: evt]].
+
-
- "Transfer control to *either* the currently active submenu or the pop up owner, if any. Since the active sub menu is always displayed upfront check it first."
- self selectedItem ifNotNil: [
- (self selectedItem activateSubmenu: evt)
- ifTrue: [ ^self ]
- ifFalse: [
- (self containsPoint: evt position) ifFalse: [
- self selectItem: nil event: evt ] ] ].
-
  "Note: The following does not traverse upwards but it's the best I can do for now"
+ popUpOwner ifNotNil: [popUpOwner activateOwnerMenu: evt].!
- popUpOwner ifNotNil:[(popUpOwner activateOwnerMenu: evt) ifTrue: [^ self]].
- !