[squeak-dev] The Trunk: MorphicExtras-tcj.256.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jun 11 00:56:03 UTC 2019

David T. Lewis uploaded a new version of MorphicExtras to project The Trunk:

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

Name: MorphicExtras-tcj.256
Author: tcj
Time: 7 June 2019, 3:03:00.368787 pm
UUID: 14a1c7c2-1e36-4ce1-b27f-b046f640921e
Ancestors: MorphicExtras-kfr.255

Tell TextMorphs in Flaps to wrap at parent boundary, rather than extend across the whole display (as exposed by enabling debug code in TextMorph>>drawOn: ).  Must execute the following (as postscript of MorphicExtras package, perhaps) to give life to the change:

FlapTab allSubInstancesDo: [:ft | ft reformatTextualTab]

=============== Diff against MorphicExtras-kfr.255 ===============

Item was changed:
  ----- Method: FlapTab>>assumeString:font:orientation:color: (in category 'textual tabs') -----
  assumeString: aString font: aFont orientation: orientationSymbol color: aColor 
  	| aTextMorph workString tabStyle |
  	labelString := aString asString.
  	workString := orientationSymbol == #vertical 
  					[String streamContents: 
  							[:s | 
  							labelString do: [:c | s nextPut: c] separatedBy: [s nextPut: Character cr]]]
  				ifFalse: [labelString]. 
  	tabStyle := (TextStyle new)
  				leading: 0;
  				newFontArray: (Array with: aFont).
  	aTextMorph := (TextMorph new setTextStyle: tabStyle) 
  				contents: (workString asText addAttribute: (TextKern kern: 3)).
+ 	aTextMorph wrapFlag: true.
  	self removeAllMorphs.
  	self borderStyle: (BorderStyle raised width: 2).
  	aColor ifNotNil: [self color: aColor].
  	self addMorph: aTextMorph centered.
  	aTextMorph lock
  FlapTab allSubInstancesDo: [:ft | ft reformatTextualTab]

More information about the Squeak-dev mailing list