--- a/HostGraphicsDevice.st	Wed Jul 21 22:52:38 1999 +0200
+++ b/HostGraphicsDevice.st	Fri Jul 23 01:18:41 1999 +0200
@@ -105,7 +105,7 @@
 
 initializeDeviceResourceTables
     deviceColors := Registry new.
-    deviceFonts := Registry new.
+    deviceFonts := CachingRegistry new cacheSize:10.
 
     "Created: 24.2.1997 / 18:29:53 / cg"
 !
@@ -117,11 +117,11 @@
 !
 
 releaseDeviceFonts
-    deviceFonts := Registry new.
+    deviceFonts := CachingRegistry new cacheSize:10.
 ! !
 
 !HostGraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.5 1997-02-24 21:23:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.6 1999-07-22 23:18:41 cg Exp $'
 ! !