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