--- a/HostGraphicsDevice.st	Fri Sep 01 18:29:31 2000 +0200
+++ b/HostGraphicsDevice.st	Fri Sep 01 18:30:16 2000 +0200
@@ -12,6 +12,8 @@
 
 
 
+"{ Package: 'stx:libview' }"
+
 GraphicsDevice subclass:#HostGraphicsDevice
 	instanceVariableNames:'deviceColors deviceFonts deviceViews deviceForms deviceCursors'
 	classVariableNames:''
@@ -159,6 +161,24 @@
     deviceFonts := CachingRegistry new cacheSize:10.
 ! !
 
+!HostGraphicsDevice methodsFor:'misc'!
+
+recolorCursorsToFgColor:fgColor defaultBgColor:bgColor
+    "change the colors of all existing cursors"
+
+    "/ recolor existing cursors
+    deviceCursors do:[:eachCursor | eachCursor foreground:fgColor background:bgColor].
+
+    "
+     Display recolorCursorsToFgColor:(Color red) defaultBgColor:(Color white)
+
+     Display recolorCursorsToFgColor:(Color blue) defaultBgColor:(Color white)
+     Display recolorCursorsToFgColor:(Color blue) defaultBgColor:(Color black)
+     Display recolorCursorsToFgColor:(Color white) defaultBgColor:(Color black)
+     Display recolorCursorsToFgColor:(Color white) defaultBgColor:(Color red)
+    "
+! !
+
 !HostGraphicsDevice methodsFor:'registration'!
 
 registerColor:aColor
@@ -224,5 +244,5 @@
 !HostGraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.14 1999-10-09 13:19:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.15 2000-09-01 16:30:16 cg Exp $'
 ! !