The Trunk: Morphic-mt.1173.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1173.mcz

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

Name: Morphic-mt.1173
Author: mt
Time: 9 June 2016, 6:07:00.171737 pm
UUID: b06fd718-929f-a048-9edb-bd777dcced92
Ancestors: Morphic-mt.1172

Fixes a bug where pop-up menus in active background windows where occluded by the window after the mouse-down if such windows also do raise on any mouse down.

=============== Diff against Morphic-mt.1172 ===============

Item was changed:
  ----- Method: SystemWindow>>beKeyWindowIfNeeded: (in category 'top window') -----
  beKeyWindowIfNeeded: evt
  "Make me the new key window if needed. Ensure that the focus look matches the keyboard focus."
 
  (self isKeyWindow not
  and: [self class windowsRaiseOnClick
  or: [self windowDecorations anySatisfy: [:morph | morph bounds containsPoint: evt position]] ])
+ ifFalse: [
+ "Just ensure the correct look after the event."
+ self updateFocusLookForKeyboardFocus]
+ ifTrue: [
+ "We are the new key window at the front etc."
+ self beKeyWindow.
+ "There may have been a pop-up menu spawned. We do not want to occlude that."
+ evt hand mouseFocus ifNotNil: [:morph |
+ morph owner = self world ifTrue: [morph comeToFront]].
+ evt hand balloonHelpList do: [:morph |
+ morph comeToFront]]!
- ifTrue: [self beKeyWindow]
- ifFalse: [self updateFocusLookForKeyboardFocus].!