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