--- a/ProcMonitor.st Mon Jan 27 22:42:40 1997 +0100
+++ b/ProcMonitor.st Mon Jan 27 23:38:44 1997 +0100
@@ -162,7 +162,7 @@
aProcess := processes at:index.
(aProcess notNil
- and:[aProcess ~~ 0]) ifTrue:[
+ and:[aProcess ~~ 0]) ifTrue:[
((id := aProcess id) notNil or:[hideDead not]) ifTrue:[
line := WriteStream on:(String new:200).
@@ -212,11 +212,11 @@
showDetail ifTrue:[
id == 0 ifTrue:[
- line nextPutAll:('unlimited' leftPaddedTo:13).
+ line nextPutAll:('unlimited' leftPaddedTo:14).
] ifFalse:[
n := aProcess numberOfStackSegments.
line nextPutAll:(aProcess totalStackSize printStringLeftPaddedTo:10).
- line nextPut:$( ; nextPutAll:n printString; nextPut:$).
+ line nextPutAll:(('(' , n printString , ')') paddedTo:4).
].
con notNil ifTrue:[
line nextPutAll:' '.
@@ -320,7 +320,7 @@
]
"Modified: 3.7.1996 / 13:56:01 / stefan"
- "Modified: 18.7.1996 / 20:19:59 / cg"
+ "Modified: 27.1.1997 / 23:36:38 / cg"
! !
!ProcessMonitor methodsFor:'initialization'!
@@ -600,4 +600,4 @@
!ProcessMonitor class methodsFor:'documentation'!
version
-^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.47 1997-01-27 19:41:19 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.48 1997-01-27 22:38:44 cg Exp $'! !