The Trunk: Morphic-mt.1394.mcz

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

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

Name: Morphic-mt.1394
Author: mt
Time: 12 February 2018, 9:49:02.68787 am
UUID: 2c7b52d0-710f-40e5-817b-d79218563652
Ancestors: Morphic-ul.1393

Small fix for mouse cursor in dialog boxes.

=============== Diff against Morphic-ul.1393 ===============

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 showTemporaryCursor: nil. "Since we are out of context, reset the cursor."
+
  hand keyboardFocus in: [:priorKeyboardFocus |
  self exclusive ifTrue: [hand newMouseFocus: self].
  hand newKeyboardFocus: self.
 
  [self isInWorld] whileTrue:[world doOneSubCycle].
 
  hand newKeyboardFocus: priorKeyboardFocus.
  hand releaseMouseFocus].
 
  ^ result!