[squeak-dev] The Inbox: Kernel-cmm.1370.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Feb 16 04:59:51 UTC 2021
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!
More information about the Squeak-dev
mailing list
|