--- a/HostGraphicsDevice.st	Wed Aug 18 18:42:55 1999 +0200
+++ b/HostGraphicsDevice.st	Wed Aug 18 18:43:15 1999 +0200
@@ -73,18 +73,18 @@
     ^ deviceFonts
 !
 
+deviceForms
+    "return the registry keeping track of forms which were allocated
+     on this device."
+
+    ^ deviceForms
+!
+
 deviceViews
     "return the registry keeping track of views which were allocated
      on this device."
 
     ^ deviceViews
-!
-
-deviceForms
-    "return the registry keeping track of forms which were allocated
-     on this device."
-
-    ^ deviceForms
 ! !
 
 !HostGraphicsDevice methodsFor:'color stuff'!
@@ -127,9 +127,13 @@
 !
 
 releaseDeviceColors
+    deviceColors do:[:aColor |
+        aColor setDevice:nil colorId:nil
+    ].
     deviceColors := Registry new.
 
     "Created: 24.2.1997 / 18:07:49 / cg"
+
 !
 
 releaseDeviceFonts
@@ -139,5 +143,5 @@
 !HostGraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.7 1999-07-30 18:12:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.8 1999-08-18 16:43:15 cg Exp $'
 ! !