<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
Hi Christoph,<div><br></div><div>note that the implementation of Transcripter should be as minimal as possible. That new "clear" command is fine, I guess. :-)</div><div><br></div><div>> <span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">In TranscriptStream, #showln: prints the newline first as well</span></div><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px"><br></span></div><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">I added that to TranscriptStream to make sure that even the first call to #showln: is on an extra line, regardless of its previous contents.</span></div><div><br></div><div>Best,</div><div>Marcel</div><div class="mb_sig"></div>
<blockquote class="history_container" type="cite" style="border-left-style: solid;border-width: 1px;margin-top: 20px;margin-left: 0px;padding-left: 10px;min-width: 500px">
<p style="color: #AAAAAA; margin-top: 10px;">Am 15.12.2019 12:15:18 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">A new version of System was added to project The Inbox:<br>http://source.squeak.org/inbox/System-ct.1128.mcz<br><br>==================== Summary ====================<br><br>Name: System-ct.1128<br>Author: ct<br>Time: 14 December 2019, 3:14:14.108612 pm<br>UUID: 89698e0d-cee3-2041-afa8-96674d632912<br>Ancestors: System-mt.1127<br><br>Extends Transcripter with #clear command and refactors readEvalPrint loop<br><br>- Adds #showln: method<br><br>=============== Diff against System-mt.1127 ===============<br><br>Item was changed:<br> ----- Method: Transcripter>>readEvalPrint (in category 'command line') -----<br> readEvalPrint<br> | line okToRevert |<br> okToRevert := true.<br>+ [#(quit exit done) includes: (line := self request: '>')]<br>+ whileFalse: [ line<br>+ caseOf: {<br>+ [#revert] -> [okToRevert<br>+ ifTrue: [RecentMessages default revertMostRecent.<br>+ self showln: 'reverted: ' , RecentMessages default mostRecent.<br>+ okToRevert := false]<br>+ ifFalse: [self showln: 'Only one level of revert currently supported']].<br>+ [#clear] -> [self clear]. }<br>+ otherwise: [<br>+ self showln: ([Compiler evaluate: line] ifError: [:err :ex | err])] ]!<br>- [#('quit' 'exit' 'done' ) includes: (line := self request: '>')]<br>- whileFalse:<br>- [line = 'revert'<br>- ifTrue: [okToRevert<br>- ifTrue: [RecentMessages default revertMostRecent.<br>- self cr; show: 'reverted: ' , RecentMessages default mostRecent.<br>- okToRevert := false]<br>- ifFalse: [self cr; show: 'Only one level of revert currently supported']]<br>- ifFalse: [self cr; show: ([Compiler evaluate: line] ifError: [:err :ex | err])]]!<br><br>Item was added:<br>+ ----- Method: Transcripter>>showln: (in category 'accessing') -----<br>+ showln: anObject<br>+ self<br>+ cr;<br>+ show: anObject!<br><br><br></div></blockquote></div>