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, 1 insertions, 1 deletions

diff --git a/Tabbed.hs b/Tabbed.hs
index 0996e06..378f20a 100644
--- a/Tabbed.hs
+++ b/Tabbed.hs
@@ -172,7 +172,7 @@ createTabs c (Rectangle x y wh ht) owl@(ow:ows) = do
       height = fromIntegral $ tabSize c
       mask   = Just (exposureMask .|. buttonPressMask)
   d  <- asks display
-  w  <- createNewWindow (Rectangle x y wid height) mask
+  w  <- createNewWindow (Rectangle x y wid height) mask (inactiveColor c)
   io $ restackWindows d $ w : [ow]
   ws <- createTabs c (Rectangle (x + fromIntegral wid) y (wh - wid) ht) ows
   return (w:ws)