--- a/HostGraphicsDevice.st	Wed Aug 18 18:43:15 1999 +0200
+++ b/HostGraphicsDevice.st	Wed Aug 18 18:44:12 1999 +0200
@@ -1,6 +1,6 @@
 "
 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -13,7 +13,7 @@
 
 
 GraphicsDevice subclass:#HostGraphicsDevice
-	instanceVariableNames:'deviceColors deviceFonts deviceViews deviceForms'
+	instanceVariableNames:'deviceColors deviceFonts deviceViews deviceForms deviceCursors'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Graphics'
@@ -24,7 +24,7 @@
 copyright
 "
 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -46,10 +46,10 @@
     In ST/X, this is mostly dummy.
 
     [see also:]
-        DeviceWorkstation XWorkstation
+	DeviceWorkstation XWorkstation
 
     [author:]
-        Claus Gittinger
+	Claus Gittinger
 "
 
 
@@ -128,7 +128,7 @@
 
 releaseDeviceColors
     deviceColors do:[:aColor |
-        aColor setDevice:nil colorId:nil
+	aColor setDevice:nil colorId:nil
     ].
     deviceColors := Registry new.
 
@@ -143,5 +143,5 @@
 !HostGraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.8 1999-08-18 16:43:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.9 1999-08-18 16:44:12 cg Exp $'
 ! !