--- a/MemoryMonitorView.st	Mon May 13 11:34:27 2002 +0200
+++ b/MemoryMonitorView.st	Tue May 14 01:19:05 2002 +0200
@@ -697,9 +697,9 @@
         myProcess resume.
     ].
 
-    newColor := newColor on:device.
-    freeColor := freeColor on:device.
-    oldColor := oldColor on:device.
+    newColor := newColor onDevice:device.
+    freeColor := freeColor onDevice:device.
+    oldColor := oldColor onDevice:device.
 
     "Modified: / 23.9.1998 / 12:41:10 / cg"
 !
@@ -958,5 +958,5 @@
 !MemoryMonitorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.6 2001-12-20 14:01:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.7 2002-05-13 23:18:14 cg Exp $'
 ! !

--- a/ProcessMonitor.st	Mon May 13 11:34:27 2002 +0200
+++ b/ProcessMonitor.st	Tue May 14 01:19:05 2002 +0200
@@ -481,9 +481,9 @@
 !
 
 realize
-    waitColor := waitColor on:device.
-    runColor := runColor on:device.
-    suspendedColor := suspendedColor on:device.
+    waitColor := waitColor onDevice:device.
+    runColor := runColor onDevice:device.
+    suspendedColor := suspendedColor onDevice:device.
     super realize.
 
     "Modified: 23.1.1997 / 02:30:37 / cg"
@@ -776,5 +776,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.79 2002-05-02 09:54:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.80 2002-05-13 23:19:05 cg Exp $'
 ! !