Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 27 Jan 1997 23:38:44 +0100
changeset 1007 cf9bad620e24
parent 1006 923c6650c102
child 1008 296ff0a39a80
checkin from browser
ProcMonitor.st file | annotate | diff | comparison | revisions
ProcessMonitor.st file | annotate | diff | comparison | revisions 
--- 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 $'! !
--- 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 $'! !
hg/stx-libtool