diff options
author | David Roundy <droundy@darcs.net> | 2007-10-08 14:52:06 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-10-08 14:52:06 +0200 |
commit | 0303a3797e66fa31b4759a951ffb6f29dbb9cc57 (patch) | |
tree | 329c3fd5dd8f7ebb88e262c8c7950ca45e430b55 /Tabbed.hs | |
parent | 9ff003308ac84b72d0d686df49c06164bf495565 (diff) | |
download | XMonadContrib-0303a3797e66fa31b4759a951ffb6f29dbb9cc57.tar.gz XMonadContrib-0303a3797e66fa31b4759a951ffb6f29dbb9cc57.tar.xz XMonadContrib-0303a3797e66fa31b4759a951ffb6f29dbb9cc57.zip |
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
Diffstat (limited to 'Tabbed.hs')
-rw-r--r-- | Tabbed.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) |