--- a/ProcessMonitor.st	Wed Dec 08 21:44:29 1999 +0100
+++ b/ProcessMonitor.st	Wed Dec 08 22:22:37 1999 +0100
@@ -196,7 +196,7 @@
 
                         id printOn:line paddedTo:6.
                         gId := aProcess processGroupId.
-                        gId == id ifTrue:[
+                        ((gId == id) or:[gId isNil]) ifTrue:[
                             "/ a group leader
                             '-     ' printOn:line.
                         ] ifFalse:[
@@ -407,7 +407,9 @@
                 listView selection:newSelection.
             ]
         ].
-"/        listView flush
+        "/ cg: must flush here - drawing is done by a background process;
+        "/ without the flush, the output may look ugly (delayed)
+        listView flush
     ].
     updateBlock notNil ifTrue:[
         Processor removeTimedBlock:updateBlock.
@@ -730,5 +732,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.70 1999-06-04 07:35:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.71 1999-12-08 21:22:37 ca Exp $'
 ! !