﻿'From Squeak6.1alpha of 27 January 2023 [latest update: #22417] on 3 February 2023 at 11:18:19 pm'!

!Process methodsFor: 'printing' stamp: 'jar 2/3/2023 22:48'!
browserPrintStringWith: anObject 
	| stream |
	stream := WriteStream
				on: (String new: 100).
	stream nextPutAll: self state.
	stream nextPutAll: ' ('.
	priority printOn: stream.
	stream nextPutAll: ') '.
	stream nextPutAll: self name.
	stream nextPut: $:.
	stream space.
	stream nextPutAll: anObject asString.
	^ stream contents! !

!Process methodsFor: 'printing' stamp: 'jar 2/3/2023 23:12'!
printOn: aStream

	super printOn: aStream.
	aStream
		nextPut: $(;
		nextPutAll: self name;
		nextPutAll: ') '.
	aStream nextPutAll: self state.
	aStream nextPutAll: ' in '.
	suspendedContext printOn: aStream! !

!Process methodsFor: 'testing' stamp: 'jar 2/3/2023 23:17'!
state

	self isActiveProcess ifTrue: [^'active'].
	self isBlocked ifTrue: [^'blocked'].
	self isRunnable ifTrue: [^'runnable'].
	self isSuspended ifTrue: [^'suspended'].
	self isTerminated ifTrue: [^'terminated'].
	^'nil'! !

