--- a/HostGraphicsDevice.st	Fri Feb 21 20:17:42 1997 +0100
+++ b/HostGraphicsDevice.st	Mon Feb 24 18:32:40 1997 +0100
@@ -55,8 +55,54 @@
 
 ! !
 
+!HostGraphicsDevice methodsFor:'accessing'!
+
+deviceColors
+    "return the value of the instance variable 'deviceColors' (automatically generated)"
+
+    ^ deviceColors
+
+    "Created: 24.2.1997 / 18:01:41 / cg"
+!
+
+deviceColors:something
+    "set the value of the instance variable 'deviceColors' (automatically generated)"
+
+    deviceColors := something.
+
+    "Created: 24.2.1997 / 18:01:42 / cg"
+! !
+
+!HostGraphicsDevice methodsFor:'color stuff'!
+
+registerColor:aColor
+    deviceColors register:aColor.
+
+    "Created: 24.2.1997 / 18:29:10 / cg"
+!
+
+unregisterColor:aColor
+    deviceColors unregister:aColor.
+
+    "Created: 24.2.1997 / 18:29:14 / cg"
+! !
+
+!HostGraphicsDevice methodsFor:'initialize / release'!
+
+initializeDeviceResourceTrackers
+    deviceColors := Registry new.
+
+    "Created: 24.2.1997 / 18:29:53 / cg"
+!
+
+releaseDeviceColors
+    deviceColors := Registry new.
+
+    "Created: 24.2.1997 / 18:07:49 / cg"
+! !
+
 !HostGraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.2 1997-02-08 19:14:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.3 1997-02-24 17:32:04 cg Exp $'
 ! !