--- a/ProcessMonitor.st	Tue Dec 14 15:33:52 1999 +0100
+++ b/ProcessMonitor.st	Tue Dec 14 21:15:14 1999 +0100
@@ -132,8 +132,7 @@
                          ]
                      ].
         newList ~= processes ifTrue:[
-            processes := WeakArray withAll:newList.
-            self updateStatus
+            self updateStatus:newList
         ].
     ].
     updateBlock notNil ifTrue:[
@@ -141,11 +140,11 @@
         Processor addTimedBlock:listUpdateBlock afterSeconds:listUpdateDelay
     ].
 
-    "Modified: 3.7.1996 / 13:37:29 / stefan"
-    "Modified: 21.8.1997 / 15:40:40 / cg"
+    "Modified: / 3.7.1996 / 13:37:29 / stefan"
+    "Modified: / 14.12.1999 / 20:50:14 / cg"
 !
 
-updateStatus
+updateStatus:newProcessList
     "update status display of processes"
 
     |oldList list line dIndex interrupted contextCount 
@@ -159,19 +158,24 @@
 
     shown ifTrue:[
         oldList := listView list.
+
+        oldSelection := listView selection.
+        oldSelection notNil ifTrue:[
+            oldSelection := oldSelection collect:[:idx | |pI|
+                                            pI := idx-numHeaderLines.
+                                            (pI > processes size or:[pI < 1]) ifTrue:[
+                                                nil
+                                            ] ifFalse:[
+                                                processes at:pI
+                                            ]
+                                         ].
+            newSelection := OrderedCollection new.
+        ].
+
+        newProcessList notNil ifTrue:[
+            processes := WeakArray withAll:newProcessList.
+        ].
         processes notNil ifTrue:[
-            oldSelection := listView selection.
-            oldSelection notNil ifTrue:[
-                oldSelection := oldSelection collect:[:idx | |pI|
-                                                pI := idx-numHeaderLines.
-                                                (pI > processes size or:[pI < 1]) ifTrue:[
-                                                    nil
-                                                ] ifFalse:[
-                                                    processes at:pI
-                                                ]
-                                             ].
-                newSelection := OrderedCollection new.
-            ].
 
             list := OrderedCollection new:(processes size + numHeaderLines).
             list add:self titleLine.
@@ -417,7 +421,8 @@
     ]
 
     "Modified: / 3.7.1996 / 13:56:01 / stefan"
-    "Modified: / 7.9.1998 / 20:06:30 / cg"
+    "Created: / 14.12.1999 / 20:47:12 / cg"
+    "Modified: / 14.12.1999 / 20:50:59 / cg"
 ! !
 
 !ProcessMonitor methodsFor:'initialization'!
@@ -732,5 +737,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.71 1999-12-08 21:22:37 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.72 1999-12-14 20:15:02 cg Exp $'
 ! !