The Inbox: MorphicExtras-tcj.256.mcz

This is a straightforward change, is there any reason not to move
it to trunk? If no objections I will do so on Monday.

I note that there are other Morphic Extras items in the inbox that
need review, in particular MorphicExtras-kfr.254 which seems like
a useful update, but Karl cautions that it could be a memory hog.
Perhaps someone familiar with the use of SketchEditorMorph could
take a look and see if it makes sense?

Dave


On Fri, Jun 07, 2019 at 03:13:49PM -0700, Tim Johnson wrote:
> Hi,
>
> I found this after enabling debug code* in TextMorph>>#drawOn:
>


>
>
>
> My fix is to wrap the text, thus creating this:
>


>
>
>
> However, the MorphicExtras package may need the following added to its 
> postscript for the change to take effect:
>
> FlapTab allSubInstancesDo: [:ft | ft reformatTextualTab]
>
> Thanks,
> Tim J.
>
> * by changing "false ifTrue: [...]" to "true ifTrue: [...]"
>
> On Jun 7, 2019, at 3:02 PM, [hidden email] wrote:
>
> >A new version of MorphicExtras was added to project The Inbox:
> >http://source.squeak.org/inbox/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]
> > "!
> >
> >
> >
>

>