diff options
Diffstat (limited to '')
-rw-r--r-- | DragPane.hs | 6 | ||||
-rw-r--r-- | Tabbed.hs | 2 | ||||
-rw-r--r-- | XUtils.hs | 7 |
3 files changed, 7 insertions, 8 deletions
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 () @@ -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) @@ -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 |