The Trunk: Morphic-mt.1350.mcz

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

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

Name: Morphic-mt.1350
Author: mt
Time: 20 September 2017, 8:17:14.164191 pm
UUID: a858e498-8304-9c48-a4d8-06e6fc226960
Ancestors: Morphic-tpr.1349

Fixes a mouse-focus bug that has revealed itself in the score player morph when changing the instruments for the tracks.

Actually, we cannot just save/restore the moues focus for this modal dialog invocation. If that invocation comes after a mouse-down, it will mess up Morphic's assumption that there will be a mouse-up to clear the focus, which already happened in the above case.

=============== Diff against Morphic-tpr.1349 ===============

Item was changed:
  ----- Method: DialogWindow>>getUserResponse (in category 'running') -----
  getUserResponse
 
  | hand world |
  (ProvideAnswerNotification signal: self message asString)
  ifNotNil: [:answer|
  ^ answer = #default
  ifTrue: [result]
  ifFalse: [answer]].
 
  self message ifEmpty: [messageMorph delete]. "Do not waste space."
  self paneMorph submorphs ifEmpty: [self paneMorph delete]. "Do not waste space."
+
-
  hand := self currentHand.
  world := self currentWorld.
+
-
  self fullBounds.
  self center: preferredPosition.
  self bounds: (self bounds translatedToBeWithin: world bounds).
  self openInWorld: world.
 
  hand keyboardFocus in: [:priorKeyboardFocus |
+ self exclusive ifTrue: [hand newMouseFocus: self].
+ hand newKeyboardFocus: self.
- hand mouseFocus in: [:priorMouseFocus |
- self exclusive ifTrue: [hand newMouseFocus: self].
- hand newKeyboardFocus: self.
 
+ [self isInWorld] whileTrue:[world doOneSubCycle].
- [self isInWorld] whileTrue:[world doOneSubCycle].
 
+ hand newKeyboardFocus: priorKeyboardFocus.
+ hand releaseMouseFocus].
- hand newKeyboardFocus: priorKeyboardFocus.
- self exclusive ifTrue: [
- hand newMouseFocus: priorMouseFocus]]].
 
  ^ result!