<div dir="ltr">Replaced by cmm-1371.</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Mon, Feb 15, 2021 at 10:59 PM <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</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">Chris Muller uploaded a new version of Kernel to project The Inbox:<br>
<a href="http://source.squeak.org/inbox/Kernel-cmm.1370.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/inbox/Kernel-cmm.1370.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Kernel-cmm.1370<br>
Author: cmm<br>
Time: 15 February 2021, 10:43:35.519565 pm<br>
UUID: d974937b-c8d9-44a1-bbb0-9c233146b528<br>
Ancestors: Kernel-dtl.1369<br>
<br>
Let Processes identify themselves by a dynamic #name in their #printString IF they were so intentionally named, otherwise, the classic generic printString (which indicates its current Context).<br>
<br>
=============== Diff against Kernel-dtl.1369 ===============<br>
<br>
Item was changed:<br>
  ----- Method: Process>>longPrintOn: (in category 'printing') -----<br>
+ longPrintOn: stream <br>
- longPrintOn: stream<br>
- <br>
        | ctxt |<br>
+       self printOn: stream.<br>
-       super printOn: stream.<br>
-       stream<br>
-               nextPut: $(;<br>
-               nextPutAll: self name;<br>
-               nextPut: $).<br>
        stream cr.<br>
        ctxt := self suspendedContext.<br>
+       [ ctxt == nil ] whileFalse:<br>
+               [ stream space.<br>
-       [ctxt == nil] whileFalse: [<br>
-               stream space.<br>
                ctxt printOn: stream.<br>
                stream cr.<br>
+               ctxt := ctxt sender ]!<br>
-               ctxt := ctxt sender.<br>
-       ].<br>
- !<br>
<br>
Item was changed:<br>
  ----- Method: Process>>printOn: (in category 'printing') -----<br>
+ printOn: aStream <br>
+       self name value<br>
+               ifNil:<br>
+                       [ super printOn: aStream.<br>
+                       aStream nextPutAll: ' in '.<br>
+                       self suspendedContext printOn: aStream ]<br>
+               ifNotNil:<br>
+                       [ : nm | aStream nextPutAll: nm ]!<br>
- printOn: aStream<br>
- <br>
-       super printOn: aStream.<br>
-       aStream<br>
-               nextPut: $(;<br>
-               nextPutAll: self name;<br>
-               nextPut: $).<br>
-       aStream nextPutAll: ' in '.<br>
-       suspendedContext printOn: aStream!<br>
<br>
<br>
</blockquote></div>