The Trunk: Morphic-mt.871.mcz

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@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@30) +  (0 @ (topOffset + buttonAreaHeight))!
- self extent: (query extent x max: answerExtent x)
- + 4 @ (topOffset + answerExtent y + 4 + buttonAreaHeight).
- !