From 0303a3797e66fa31b4759a951ffb6f29dbb9cc57 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Mon, 8 Oct 2007 14:52:06 +0200 Subject: 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 --- XUtils.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'XUtils.hs') 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 -- cgit v1.2.3