[Pkg] The Trunk: Morphic-mt.871.mcz

[commits at source.squeak.org]

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

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

Name: Morphic-mt.871
Author: mt
Time: 14 April 2015, 6:31:44.754 pm
UUID: d91a8d3d-b59d-6245-be59-df35d9ca1c1f
Ancestors: Morphic-mt.870

FillInTheBlankMorph is now resized to better fit its initialAnswer.

=============== Diff against Morphic-mt.870 ===============

Item was changed:
  ----- Method: FillInTheBlankMorph class>>defaultAnswerExtent (in category 'default constants') -----
  defaultAnswerExtent
+ 	^  (200@ (3 * Preferences standardDefaultTextFont height))!
- 	^  (200 at 60 * (Preferences standardMenuFont height / 12)) rounded!

Item was changed:
  ----- Method: FillInTheBlankMorph>>setQuery:initialAnswer:answerExtent:acceptOnCR: (in category 'initialization') -----
  setQuery: queryString initialAnswer: initialAnswer answerExtent: answerExtent acceptOnCR: acceptBoolean 
  	| query topOffset accept cancel buttonAreaHeight |
  	response := initialAnswer.
  	done := false.
  	self removeAllMorphs.
  	self layoutPolicy: ProportionalLayout new.
  	query := self createQueryTextMorph: queryString.
  	topOffset := query height + 4.
  	accept := self createAcceptButton.
  	cancel := self createCancelButton.
  	buttonAreaHeight := (accept height max: cancel height)
  				+ 7.
  	textPane := self
  				createTextPaneExtent: answerExtent
  				acceptBoolean: acceptBoolean
  				topOffset: topOffset
  				buttonAreaHeight: buttonAreaHeight.
+ 	
+ 	self extent: ((answerExtent max: query extent)
+ 		max: (initialAnswer asText asMorph extent)) + (20 at 30) +  (0 @ (topOffset + buttonAreaHeight))!
- 	self extent: (query extent x max: answerExtent x)
- 			+ 4 @ (topOffset + answerExtent y + 4 + buttonAreaHeight).
- 	!