David T. Lewis uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-tcj.256.mcz
==================== 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 ifTrue: [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] "!