<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>