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