The Trunk: Morphic-mt.1282.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Morphic-mt.1282.mcz

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

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

Name: Morphic-mt.1282
Author: mt
Time: 16 August 2016, 9:50:08.365039 am
UUID: 79da2b14-6474-ec4c-8e5c-f6408c959f70
Ancestors: Morphic-mt.1281

Fixes regression in Fill-in-the-blank morph by making it resizable again. (Use visible corner grips as in the list chooser.)

=============== Diff against Morphic-mt.1281 ===============

Item was changed:
  ----- Method: FillInTheBlankMorph>>setQuery:initialAnswer:answerExtent:acceptOnCR: (in category 'initialization') -----
  setQuery: queryString initialAnswer: initialAnswer answerExtent: answerExtent acceptOnCR: acceptBoolean
 
  | text |
 
  result := initialAnswer.
  done := false.
 
  self paneMorph removeAllMorphs.
 
  self title: 'Input Requested'.
  self message: queryString.
 
  text := self createTextPaneAcceptOnCR: acceptBoolean.
  self paneMorph addMorphBack: text.
 
+ self paneMorph
+ wantsPaneSplitters: true;
+ addCornerGrips.
+ self paneMorph grips do: [:ea | ea drawCornerResizeHandles: true].
+
  self paneMorph extent: ((initialAnswer asText asMorph extent + (20@10) max: answerExtent) min: 500@500).
  self setDefaultParameters.!