<div dir="ltr">MorphicExtras-kfr.254 give infinite undo to SketchEditorMorph by saving the whole form for _every_ change. You get ability to stress test the garbage collector :-)<br><div>It's not a practical solution to infinite undo though, because of the huge amount of data collected.</div><div><br></div><div>Best,</div><div>Karl</div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Sat, Jun 8, 2019 at 4:42 PM David T. Lewis <<a href="mailto:lewis@mail.msen.com">lewis@mail.msen.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">This is a straightforward change, is there any reason not to move<br>
it to trunk? If no objections I will do so on Monday.<br>
<br>
I note that there are other Morphic Extras items in the inbox that<br>
need review, in particular MorphicExtras-kfr.254 which seems like<br>
a useful update, but Karl cautions that it could be a memory hog.<br>
Perhaps someone familiar with the use of SketchEditorMorph could<br>
take a look and see if it makes sense?<br>
<br>
Dave<br>
<br>
<br>
On Fri, Jun 07, 2019 at 03:13:49PM -0700, Tim Johnson wrote:<br>
> Hi,<br>
> <br>
> I found this after enabling debug code* in TextMorph>>#drawOn:<br>
> <br>
<br>
<br>
> <br>
> <br>
> <br>
> My fix is to wrap the text, thus creating this:<br>
> <br>
<br>
<br>
> <br>
> <br>
> <br>
> However, the MorphicExtras package may need the following added to its <br>
> postscript for the change to take effect:<br>
> <br>
> FlapTab allSubInstancesDo: [:ft | ft reformatTextualTab]<br>
> <br>
> Thanks,<br>
> Tim J.<br>
> <br>
> * by changing "false ifTrue: [...]" to "true ifTrue: [...]"<br>
> <br>
> On Jun 7, 2019, at 3:02 PM, <a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a> wrote:<br>
> <br>
> >A new version of MorphicExtras was added to project The Inbox:<br>
> ><a href="http://source.squeak.org/inbox/MorphicExtras-tcj.256.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/inbox/MorphicExtras-tcj.256.mcz</a><br>
> ><br>
> >==================== Summary ====================<br>
> ><br>
> >Name: MorphicExtras-tcj.256<br>
> >Author: tcj<br>
> >Time: 7 June 2019, 3:03:00.368787 pm<br>
> >UUID: 14a1c7c2-1e36-4ce1-b27f-b046f640921e<br>
> >Ancestors: MorphicExtras-kfr.255<br>
> ><br>
> >Tell TextMorphs in Flaps to wrap at parent boundary, rather than <br>
> >extend across the whole display (as exposed by enabling debug code <br>
> >in TextMorph>>drawOn: ). Must execute the following (as postscript <br>
> >of MorphicExtras package, perhaps) to give life to the change:<br>
> ><br>
> >FlapTab allSubInstancesDo: [:ft | ft reformatTextualTab]<br>
> ><br>
> >=============== Diff against MorphicExtras-kfr.255 ===============<br>
> ><br>
> >Item was changed:<br>
> > ----- Method: FlapTab>>assumeString:font:orientation:color: (in <br>
> >category 'textual tabs') -----<br>
> > assumeString: aString font: aFont orientation: orientationSymbol <br>
> >color: aColor<br>
> > | aTextMorph workString tabStyle |<br>
> > labelString := aString asString.<br>
> > workString := orientationSymbol == #vertical<br>
> > ifTrue:<br>
> > [String streamContents:<br>
> > [:s |<br>
> > labelString do: [:c <br>
> > | s nextPut: c] <br>
> > separatedBy: [s <br>
> > nextPut: Character cr]]]<br>
> > ifFalse: [labelString].<br>
> > tabStyle := (TextStyle new)<br>
> > leading: 0;<br>
> > newFontArray: (Array with: aFont).<br>
> > aTextMorph := (TextMorph new setTextStyle: tabStyle)<br>
> > contents: (workString asText addAttribute: <br>
> > (TextKern kern: 3)).<br>
> >+ aTextMorph wrapFlag: true.<br>
> > self removeAllMorphs.<br>
> > self borderStyle: (BorderStyle raised width: 2).<br>
> > aColor ifNotNil: [self color: aColor].<br>
> > self addMorph: aTextMorph centered.<br>
> > aTextMorph lock<br>
> > "<br>
> > FlapTab allSubInstancesDo: [:ft | ft reformatTextualTab]<br>
> > "!<br>
> ><br>
> ><br>
> ><br>
> <br>
<br>
> <br>
<br>
<br>
</blockquote></div>