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!
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!
squeak-dev@lists.squeakfoundation.org