--- a/HostGraphicsDevice.st	Wed Aug 18 19:59:47 1999 +0200
+++ b/HostGraphicsDevice.st	Wed Aug 18 20:22:02 1999 +0200
@@ -96,48 +96,6 @@
     ^ deviceViews
 ! !
 
-!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:'cursor stuff'!
-
-registerCursor:aCursor
-    deviceCursors register:aCursor.
-
-    "Created: 24.2.1997 / 18:29:10 / cg"
-!
-
-unregisterCursor:aCursor
-    deviceCursors unregister:aCursor.
-
-    "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
@@ -171,11 +129,76 @@
 !
 
 releaseDeviceFonts
+    deviceFonts do:[:aFont |
+        aFont releaseFromDevice.
+    ].
     deviceFonts := CachingRegistry new cacheSize:10.
 ! !
 
+!HostGraphicsDevice methodsFor:'registration'!
+
+registerColor:aColor
+    deviceColors register:aColor.
+
+    "Created: 24.2.1997 / 18:29:10 / cg"
+!
+
+registerCursor:aCursor
+    deviceCursors register:aCursor.
+
+    "Created: 24.2.1997 / 18:29:10 / cg"
+!
+
+registerFont:aFont
+    deviceFonts register:aFont.
+
+    "Created: 24.2.1997 / 18:29:10 / cg"
+!
+
+registerForm:aForm
+    deviceForms register:aForm.
+
+    "Created: 24.2.1997 / 18:29:10 / cg"
+!
+
+registerView:aView
+    deviceViews register:aView.
+
+    "Created: 24.2.1997 / 18:29:10 / cg"
+!
+
+unregisterColor:aColor
+    deviceColors unregister:aColor.
+
+    "Created: 24.2.1997 / 18:29:14 / cg"
+!
+
+unregisterCursor:aCursor
+    deviceCursors unregister:aCursor.
+
+    "Created: 24.2.1997 / 18:29:14 / cg"
+!
+
+unregisterFont:aFont
+    deviceFonts unregister:aFont.
+
+    "Created: 24.2.1997 / 18:29:14 / cg"
+!
+
+unregisterForm:aForm
+    deviceForms unregister:aForm.
+
+    "Created: 24.2.1997 / 18:29:14 / cg"
+!
+
+unregisterView:aView
+    deviceViews unregister:aView.
+
+    "Created: 24.2.1997 / 18:29:14 / cg"
+! !
+
 !HostGraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.11 1999-08-18 17:58:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.12 1999-08-18 18:21:35 cg Exp $'
 ! !