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!