Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ProcessMonitor.st
changeset 3000 e794a357d7cb
parent 2981 39df54f7d6b2
child 3023 abe1daf204c3 
--- a/ProcessMonitor.st	Mon Apr 02 15:06:12 2001 +0200
+++ b/ProcessMonitor.st	Tue Apr 10 16:26:36 2001 +0200
@@ -102,12 +102,15 @@
 
 titleLine
     showDetail ifTrue:[
-	Processor supportDynamicPriorities ifTrue:[
-    ^ 'id   group  name                            state     prio       usedStack    totalStack  current-segment      switch  where'.
-	].
-    ^ 'id   group  name                            state    prio usedStack    totalStack  current-segment      switch  where'.
+        Processor supportDynamicPriorities ifTrue:[
+            ^ 
+'id     group  name                            state     prio       usedStack    totalStack  current-segment      switch  where'.
+        ].
+        ^ 
+'id     group  name                            state    prio usedStack    totalStack  current-segment      switch  where'.
     ].
-    ^ 'id   group  name                            state    prio where                                           '.
+    ^ 
+'id     group  name                            state    prio where                                           '.
 
     "Modified: / 3.7.1996 / 13:57:38 / stefan"
     "Modified: / 3.8.1998 / 23:20:24 / cg"
@@ -200,13 +203,13 @@
                     ((id := aProcess id) notNil or:[hideDead not]) ifTrue:[
                         line := WriteStream on:(String new:200).
 
-                        id printOn:line paddedTo:6.
+                        id printOn:line paddedTo:7.
                         gId := aProcess processGroupId.
                         ((gId == id) or:[gId isNil]) ifTrue:[
                             "/ a group leader
-                            '-     ' printOn:line.
+                            '-      ' printOn:line.
                         ] ifFalse:[
-                            gId printOn:line paddedTo:6.
+                            gId printOn:line paddedTo:7.
                         ].
 
                         (nm := aProcess name) isNil ifFalse:[
@@ -740,5 +743,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.74 2001-02-13 15:01:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.75 2001-04-10 14:26:36 cg Exp $'
 ! !
hg/stx-libtool