make createNewWindow set background and foreground to a given color.

This means we don't need to draw colors that are this color.  Also
speeds up redrawing, since the X server can do all the drawing on its
own, without talking with xmonad.

darcs-hash:20071008125206-72aca-0f17cde109eeb8f66ea651657fcc09599680881d.gz

1 files changed, 4 insertions, 3 deletions

diff --git a/XUtils.hs b/XUtils.hs
index c06cde4..4434c8f 100644
--- a/XUtils.hs
+++ b/XUtils.hs
@@ -66,11 +66,12 @@ releaseFont fs = do
 -- | Create a simple window given a rectangle. If Nothing is given
 -- only the exposureMask will be set, otherwise the Just value.
 -- Use 'showWindow' to map and hideWindow to unmap.
-createNewWindow :: Rectangle -> Maybe EventMask -> X Window
-createNewWindow (Rectangle x y w h) m = do
+createNewWindow :: Rectangle -> Maybe EventMask -> String -> X Window
+createNewWindow (Rectangle x y w h) m col = do
   d   <- asks display
   rw  <- asks theRoot
-  win <- io $ createSimpleWindow d rw x y w h 0 0 0
+  c <- stringToPixel col
+  win <- io $ createSimpleWindow d rw x y w h 0 c c
   case m of
     Just em -> io $ selectInput d win em
     Nothing -> io $ selectInput d win exposureMask