<div dir="ltr">He he, I'm always amazed about code entropy...<br>Sowing a new Class seed in a Squeak image takes a few minutes.<br>And if you wait long enough for ramifications and roots to propagate inside the image substrate, then digging up the planting can costs weeks or months !<br>
</div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/9/27 <span dir="ltr"><<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
tim Rowledge uploaded a new version of Morphic to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Morphic-tpr.692.mcz" target="_blank">http://source.squeak.org/trunk/Morphic-tpr.692.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Morphic-tpr.692<br>
Author: tpr<br>
Time: 27 September 2013, 1:08:00.67 pm<br>
UUID: 5f7e3f38-596a-413e-9c4f-e8bf96dddbac<br>
Ancestors: Morphic-nice.691<br>
<br>
Payoff time! We get to remove a couple of once irritating classes that are no longer needed<br>
<br>
=============== Diff against Morphic-nice.691 ===============<br>
<br>
Item was removed:<br>
- NewParagraph subclass: #MultiNewParagraph<br>
- instanceVariableNames: ''<br>
- classVariableNames: ''<br>
- poolDictionaries: 'TextConstants'<br>
- category: 'Morphic-Multilingual'!<br>
<br>
Item was removed:<br>
- ----- Method: MultiNewParagraph class>>initialize (in category 'class initialization') -----<br>
- initialize<br>
- "Prepare our own funeral"<br>
-<br>
- MultiNewParagraph allInstancesDo:[:mnp| mnp becomeForward: (mnp as: NewParagraph)]!<br>
<br>
Item was removed:<br>
- ----- Method: MultiNewParagraph>>displayOn:using:at: (in category 'fonts-display') -----<br>
- displayOn: aCanvas using: displayScanner at: somePosition<br>
- "Send all visible lines to the displayScanner for display"<br>
-<br>
- | visibleRectangle offset leftInRun line |<br>
- visibleRectangle := aCanvas clipRect.<br>
- offset := somePosition - positionWhenComposed.<br>
- leftInRun := 0.<br>
- (self lineIndexForPoint: visibleRectangle topLeft)<br>
- to: (self lineIndexForPoint: visibleRectangle bottomRight)<br>
- do: [:i | line := lines at: i.<br>
- self displaySelectionInLine: line on: aCanvas.<br>
- line first <= line last ifTrue:<br>
- [leftInRun := displayScanner displayLine: line<br>
- offset: offset leftInRun: leftInRun]].<br>
- !<br>
<br>
Item was removed:<br>
- TextComposer subclass: #MultiTextComposer<br>
- instanceVariableNames: ''<br>
- classVariableNames: ''<br>
- poolDictionaries: 'TextConstants'<br>
- category: 'Morphic-Multilingual'!<br>
-<br>
- !MultiTextComposer commentStamp: 'tpr 9/25/2013 13:04' prior: 0!<br>
- This is now a null calss we are working on removing completely!<br>
<br>
<br>
</blockquote></div><br></div>