The Trunk: Morphic-pre.1229.mcz

Patrick Rein uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-pre.1229.mcz

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

Name: Morphic-pre.1229
Author: pre
Time: 4 August 2016, 12:40:48.215407 pm
UUID: 4d9cc4e1-e64b-f946-8a54-1e329d9e4d5a
Ancestors: Morphic-mt.1228

Fixes the handling of block provided answers to send out the message instead of the window title and to deal with a request for the default value.

=============== Diff against Morphic-mt.1228 ===============

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]].
- (ProvideAnswerNotification signal: self title asString) ifNotNil: [:answer| ^ 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 |
  hand mouseFocus in: [:priorMouseFocus |
  self exclusive ifTrue: [hand newMouseFocus: self].
  hand newKeyboardFocus: self.
 
  [self isInWorld] whileTrue:[world doOneSubCycle].
 
  hand newKeyboardFocus: priorKeyboardFocus.
  self exclusive ifTrue: [
  hand newMouseFocus: priorMouseFocus]]].
 
  ^ result!