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 --- DragPane.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'DragPane.hs') diff --git a/DragPane.hs b/DragPane.hs index 0546cb0..dc345fc 100644 --- a/DragPane.hs +++ b/DragPane.hs @@ -136,11 +136,9 @@ doLay mirror (DragPane mw ty delta split) r s = do newDragWin :: Rectangle -> X Window newDragWin r@(Rectangle _ _ wh ht) = do let mask = Just $ exposureMask .|. buttonPressMask - w <- createNewWindow r mask + w <- createNewWindow r mask handleColor showWindow w - paintWindow w wh ht 0 handleColor handleColor return w updateDragWin :: Window -> Rectangle -> X () -updateDragWin w (Rectangle _ _ wh ht) = do - paintWindow w wh ht 0 handleColor handleColor +updateDragWin w (Rectangle _ _ wh ht) = return () -- cgit v1.2.3