# HG changeset patch
# User ca
# Date 855871134 -3600
# Node ID 4e19b2d586a4b5d3bd0b6bdeadd76088f4dac776
# Parent  619cd027ce68e6da1661e09203c273bcc636eb70
VW now has #on:, but calls it #asDevicePaintOn:
mhmh - I had it long ago ;-)

diff -r 619cd027ce68 -r 4e19b2d586a4 Color.st
--- 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!