--- a/Color.st	Mon Jul 24 15:51:35 2000 +0200
+++ b/Color.st	Mon Jul 24 16:32:10 2000 +0200
@@ -163,6 +163,14 @@
     "Modified: 24.2.1997 / 18:27:06 / cg"
 !
 
+flushDeviceColorsFor:aDevice
+    self allInstancesDo:[:aColor |
+        aColor device == aDevice ifTrue:[
+            aColor restored
+        ]
+    ]
+!
+
 getColors6x6x4
     "{ Pragma: +optSpace }"
 
@@ -5105,6 +5113,6 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.156 2000-07-02 12:54:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.157 2000-07-24 14:31:40 cg Exp $'
 ! !
 Color initialize!