[ENH][GOODIE] Process Browser "release candidate 1"
Doug Way
dway at riskmetrics.com
Tue Oct 31 03:05:22 UTC 2000
Ned, here's one more non-critical tweak to my change which added the ID
numbers to the process list. This tweak lines up the process names so
that they're more readable again.
- Doug Way
dway at riskmetrics.com
-------------- next part --------------
'From Squeak2.9alpha of 13 June 2000 [latest update: #2774] on 30 October 2000 at 9:55:38 pm'!
!Process methodsFor: 'printing' stamp: 'dew 10/30/2000 18:25'!
browserPrintStringWith: anObject
| stream |
stream _ WriteStream
on: (String new: 100).
stream nextPut: $(.
priority printOn: stream.
self isSuspended ifTrue: [stream nextPut: $s].
stream nextPutAll: ') '.
(self respondsTo: #processName)
ifTrue: [stream nextPutAll: self processName]
ifFalse: [stream nextPutAll: (self hash asString forceTo: 5 paddingWith: $ )].
stream space.
stream nextPutAll: anObject asString.
^ stream contents! !
More information about the Squeak-dev
mailing list
|