--- a/HostGraphicsDevice.st	Mon Feb 24 22:12:44 1997 +0100
+++ b/HostGraphicsDevice.st	Mon Feb 24 22:23:33 1997 +0100
@@ -13,7 +13,7 @@
 
 
 GraphicsDevice subclass:#HostGraphicsDevice
-	instanceVariableNames:'deviceColors'
+	instanceVariableNames:'deviceColors deviceFonts'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Graphics'
@@ -58,19 +58,19 @@
 !HostGraphicsDevice methodsFor:'accessing'!
 
 deviceColors
-    "return the value of the instance variable 'deviceColors' (automatically generated)"
+    "return the registry keeping track of colors which were allocated
+     on this device"
 
     ^ deviceColors
 
     "Created: 24.2.1997 / 18:01:41 / cg"
 !
 
-deviceColors:something
-    "set the value of the instance variable 'deviceColors' (automatically generated)"
+deviceFonts
+    "return the registry keeping track of fonts which were allocated
+     on this device"
 
-    deviceColors := something.
-
-    "Created: 24.2.1997 / 18:01:42 / cg"
+    ^ deviceFonts
 ! !
 
 !HostGraphicsDevice methodsFor:'color stuff'!
@@ -87,10 +87,25 @@
     "Created: 24.2.1997 / 18:29:14 / cg"
 ! !
 
+!HostGraphicsDevice methodsFor:'font stuff'!
+
+registerFont:aFont
+    deviceFonts register:aFont.
+
+    "Created: 24.2.1997 / 18:29:10 / cg"
+!
+
+unregisterFont:aFont
+    deviceFonts unregister:aFont.
+
+    "Created: 24.2.1997 / 18:29:14 / cg"
+! !
+
 !HostGraphicsDevice methodsFor:'initialize / release'!
 
 initializeDeviceResourceTables
     deviceColors := Registry new.
+    deviceFonts := Registry new.
 
     "Created: 24.2.1997 / 18:29:53 / cg"
 !
@@ -99,10 +114,14 @@
     deviceColors := Registry new.
 
     "Created: 24.2.1997 / 18:07:49 / cg"
+!
+
+releaseDeviceFonts
+    deviceFonts := Registry new.
 ! !
 
 !HostGraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.4 1997-02-24 20:28:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.5 1997-02-24 21:23:33 cg Exp $'
 ! !