[Pkg] The Trunk: Morphic-pre.1229.mcz

[commits at source.squeak.org]

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!