# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 854404724 -3600
# Node ID cf9bad620e2428564ddce0c69c46f15b663ad32f
# Parent  923c6650c1026e09d87f4a1d3280031692228c5e
checkin from browser

diff -r 923c6650c102 -r cf9bad620e24 ProcMonitor.st
--- 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 $'! !
diff -r 923c6650c102 -r cf9bad620e24 ProcessMonitor.st
--- a/ProcessMonitor.st	Mon Jan 27 22:42:40 1997 +0100
+++ b/ProcessMonitor.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/ProcessMonitor.st,v 1.47 1997-01-27 19:41:19 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.48 1997-01-27 22:38:44 cg Exp $'! !