[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