--- a/Color.st	Sat Mar 29 11:26:47 1997 +0100
+++ b/Color.st	Sat Mar 29 16:20:41 1997 +0100
@@ -3070,6 +3070,15 @@
 
     "Created: 16.11.1995 / 20:16:42 / cg"
     "Modified: 24.2.1997 / 22:01:16 / 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'!
@@ -4049,6 +4058,6 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.92 1997-03-06 01:34:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.93 1997-03-29 15:20:41 cg Exp $'
 ! !
 Color initialize!