Re: [squeak-dev] The Inbox: Kernel-cmm.1370.mcz

Replaced by cmm-1371.

On Mon, Feb 15, 2021 at 10:59 PM commits@source.squeak.org wrote:

Chris Muller uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-cmm.1370.mcz

==================== Summary ====================

Name: Kernel-cmm.1370 Author: cmm Time: 15 February 2021, 10:43:35.519565 pm UUID: d974937b-c8d9-44a1-bbb0-9c233146b528 Ancestors: Kernel-dtl.1369

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

=============== Diff against Kernel-dtl.1369 ===============

Item was changed: ----- Method: Process>>longPrintOn: (in category 'printing') -----

• longPrintOn: stream

• longPrintOn: stream

•   | ctxt |
  

•   self printOn: stream.
  

•   super printOn: stream.
  

•   stream
  

•           nextPut: $(;
  

•           nextPutAll: self name;
  

•           nextPut: $).
    stream cr.
    ctxt := self suspendedContext.
  

•   [ ctxt == nil ] whileFalse:
  

•           [ stream space.
  

•   [ctxt == nil] whileFalse: [
  

•           stream space.
            ctxt printOn: stream.
            stream cr.
  

•           ctxt := ctxt sender ]!
  

•           ctxt := ctxt sender.
  

•   ].
  

• !

Item was changed: ----- Method: Process>>printOn: (in category 'printing') -----

• printOn: aStream

•   self name value
  

•           ifNil:
  

•                   [ super printOn: aStream.
  

•                   aStream nextPutAll: ' in '.
  

•                   self suspendedContext printOn: aStream ]
  

•           ifNotNil:
  

•                   [ : nm | aStream nextPutAll: nm ]!
  

• printOn: aStream

•   super printOn: aStream.
  

•   aStream
  

•           nextPut: $(;
  

•           nextPutAll: self name;
  

•           nextPut: $).
  

•   aStream nextPutAll: ' in '.
  

•   suspendedContext printOn: aStream!