The Trunk: Morphic-tfel.1311.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-tfel.1311.mcz

commits-2
Tim Felgentreff uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-tfel.1311.mcz

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

Name: Morphic-tfel.1311
Author: tfel
Time: 29 September 2016, 4:09:12.249594 pm
UUID: 11d7f211-8f95-4d7d-86d6-854150acb550
Ancestors: Morphic-tfel.1310

- scroll to top if the FillInTheBlankMorph has a lot of text
- translate the title string of FillInTheBlankMorph

=============== Diff against Morphic-tfel.1310 ===============

Item was changed:
  ----- Method: FillInTheBlankMorph>>createTextPaneAcceptOnCR: (in category 'initialization') -----
  createTextPaneAcceptOnCR: acceptBoolean
 
  textPane := PluggableTextMorph
  on: self
  text: #response
  accept: #response:
  readSelection: #selectionInterval
  menu: #codePaneMenu:shifted:.
  textPane
  showScrollBarsOnlyWhenNeeded;
  wantsFrameAdornments: false;
  hasUnacceptedEdits: true;
  acceptOnCR: acceptBoolean;
  setNameTo: 'textPane';
  layoutFrame: (LayoutFrame fractions: (0@0 corner: 1@1));
  hResizing: #spaceFill;
+ vResizing: #spaceFill;
+ scrollToTop.
- vResizing: #spaceFill.
-
  ^ textPane!

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' translated.
- 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.!