--- a/Color.st	Thu Feb 13 22:55:41 1997 +0100
+++ b/Color.st	Thu Feb 13 22:58:54 1997 +0100
@@ -2208,6 +2208,16 @@
     "Modified: 11.7.1996 / 18:20:14 / cg"
 ! !
 
+!Color methodsFor:'ST-80 compatibility'!
+
+asDevicePaintOn:aDevice
+    "ST-80 compatibility: an alias for on:.
+     create a new Color representing the same color as
+     myself on aDevice; if one already exists, return the one"
+
+    ^ self on:aDevice
+! !
+
 !Color methodsFor:'accessing'!
 
 blue
@@ -3975,9 +3985,15 @@
     "Modified: 28.5.1996 / 20:44:36 / cg"
 ! !
 
+!Color methodsFor:'testing'!
+
+isColorObject
+    ^ true
+! !
+
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.85 1997-02-10 21:11:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.86 1997-02-13 21:58:54 ca Exp $'
 ! !
 Color initialize!