--- a/Color.st	Wed Aug 18 17:09:03 1999 +0200
+++ b/Color.st	Wed Aug 18 18:41:46 1999 +0200
@@ -3951,6 +3951,17 @@
     "create a new Color representing the same color as
      myself on aDevice; if one already exists, return the one"
 
+"/    self obsoleteMethodWarning:'use onDevice:'.
+    ^ self onDevice:aDevice
+
+    "Created: / 16.11.1995 / 20:16:42 / cg"
+    "Modified: / 8.9.1998 / 17:32:10 / cg"
+!
+
+onDevice:aDevice
+    "create a new Color representing the same color as
+     myself on aDevice; if one already exists, return the one"
+
     |newColor id form 
      greyV "{ Class: SmallInteger }"
      rV    "{ Class: SmallInteger }"
@@ -4206,15 +4217,6 @@
 
     "Created: / 16.11.1995 / 20:16:42 / cg"
     "Modified: / 8.9.1998 / 17:32:10 / cg"
-!
-
-onDevice:aDevice
-    "create a new Color representing the same color as
-     myself on aDevice; if one already exists, return the one"
-
-    ^ self on:aDevice
-
-    "Created: 29.3.1997 / 16:20:09 / cg"
 ! !
 
 !Color methodsFor:'inspecting'!
@@ -4620,6 +4622,6 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.127 1999-08-18 14:28:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.128 1999-08-18 16:41:46 cg Exp $'
 ! !
 Color initialize!