[squeak-dev] The Trunk: Morphic-tfel.1311.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Sep 29 14:09:51 UTC 2016


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 at 0 corner: 1 at 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 at 10) max: answerExtent) min: 500 at 500).	
  	self setDefaultParameters.!



More information about the Squeak-dev mailing list