Chris Muller uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-cmm.1371.mcz
==================== Summary ====================
Name: Kernel-cmm.1371 Author: cmm Time: 15 February 2021, 11:51:24.851653 pm UUID: 4a74e7a0-6654-491e-8a64-685c44d6fb63 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 indicating 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>>name (in category 'accessing') ----- name + ^ name value + ifNil: [ self hash asString forceTo: 5 paddingStartWith: $ ]! - - ^name ifNil: [ self hash asString forceTo: 5 paddingStartWith: $ ]!
Item was changed: ----- Method: Process>>printOn: (in category 'printing') ----- + printOn: aStream + self name + 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!
squeak-dev@lists.squeakfoundation.org