--- a/ProcessMonitor.st	Tue Apr 11 18:31:23 1995 +0200
+++ b/ProcessMonitor.st	Wed May 03 03:13:28 1995 +0200
@@ -12,7 +12,7 @@
 
 'From Smalltalk/X, Version:2.10.5 on 24-mar-1995 at 11:25:51 am'!
 
-View subclass:#ProcessMonitor
+SimpleView subclass:#ProcessMonitor
 	 instanceVariableNames:'listView processes listUpdateDelay updateDelay updateBlock
 		listUpdateBlock updateProcess hideDead runColor suspendedColor
 		waitColor cpuUsages'
@@ -39,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.10 1995-04-11 16:31:23 claus Exp $
+$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.11 1995-05-03 01:12:58 claus Exp $
 "
 !
 
@@ -81,7 +81,7 @@
 defaultIcon
     |i|
 
-    i := Image fromFile:'bitmaps/ProcMon.xbm'.
+    i := Image fromFile:'ProcMon.xbm'.
     i notNil ifTrue:[^ i].
     ^ StandardSystemView defaultIcon
 ! !
@@ -265,7 +265,7 @@
 
     listView := v scrolledView.
     listView font:font.
-    listView model:self; menu:#processMenu. 
+    listView model:self; menu:#processMenu; change:nil. 
 
     listView multipleSelectOk:true.
     listView delegate:(KeyboardForwarder to:self).
@@ -299,9 +299,7 @@
     self updateList.
 !
 
-realize
-    super realize.
-
+startUpdateProcess
     updateBlock notNil ifTrue:[
 	Processor addTimedBlock:updateBlock afterSeconds:updateDelay.
 	Processor addTimedBlock:listUpdateBlock afterSeconds:listUpdateDelay.
@@ -343,9 +341,15 @@
 	"
 	Processor activeProcess priority:(Processor userSchedulingPriority + 2)
     ].
+!
+
+realize
+    super realize.
     waitColor := waitColor on:device.
     runColor := runColor on:device.
     suspendedColor := suspendedColor on:device.
+
+    self startUpdateProcess.
 ! !
 
 !ProcessMonitor methodsFor:'private'!