<div>Ran into the below in Squeak 4.2. The method is present and almost unchanged in Cuis, along with the flag, and it's there in Pharo too. I'm curious if anyone knows S.D., or why S.D. thinks #ThisMethodShouldNotBeThere. Nothing like a good mystery! CC'd a couple folks who could be S.D. (Ray is sD on squeaksource.)</div>
<div><br></div><div>I was tempted to simply append</div><div><br></div><div>self flag: #OhReallyWhy? "cbr"</div><div><br></div><div>...and ship it off to all three forks just to be a stinker, but I resolved to send this email instead;)</div>
<div><br></div><div>PositionableStream>>fileInAnnouncing: announcement </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>"This is special for reading expressions from text that has been formatted </div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>with exclamation delimitors. The expressions are read and passed to the </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Compiler. Answer the result of compilation. Put up a progress report with</div>
<div> the given announcement as the title."</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>| val |</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>announcement </div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>displayProgressAt: Sensor cursorPoint</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>from: 0</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>to: self size</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>during: </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>[:bar | </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>[self atEnd] whileFalse: </div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>[bar value: self position.</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>self skipSeparators.</div><div><span class="Apple-tab-span" style="white-space:pre"> </span></div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>[ | chunk |</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>val := (self peekFor: $!) </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>ifTrue: [(Compiler evaluate: self nextChunk logged: false) scanFrom: self]</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>ifFalse: </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>[chunk := self nextChunk.</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>self checkForPreamble: chunk.</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>Compiler evaluate: chunk logged: true]] </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>on: InMidstOfFileinNotification</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>do: [:ex | ex resume: true].</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>self skipStyleChunk].</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>self close].</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>"Note: The main purpose of this banner is to flush the changes file."</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>SmalltalkImage current logChange: '----End fileIn of ' , self name , '----'.</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span><b><span class="Apple-style-span" style="font-size: large;">self flag: #ThisMethodShouldNotBeThere.</span></b><span class="Apple-tab-span" style="white-space:pre"><b><span class="Apple-style-span" style="font-size: large;"> </span></b></span><b><span class="Apple-style-span" style="font-size: large;">"sd"</span></b></div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>Smalltalk forgetDoIts.</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>^val</div>-- <br>Casey Ransberger<br>