From a06c64146849a653303aa9ee479c4eb7c72e26db Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Wed, 30 Dec 2009 23:09:27 +0100 Subject: Use more imported cursor constants. Ignore-this: 91e55c63a1d020fafb6b53e6abf9766c darcs-hash:20091230220927-1499c-6ae03ce2320ceb159a4e11b23a089547b8bfaa33.gz --- XMonad/Layout/BorderResize.hs | 17 ++++------------- 1 file changed, 4 insertions(+), 13 deletions(-) (limited to 'XMonad/Layout/BorderResize.hs') diff --git a/XMonad/Layout/BorderResize.hs b/XMonad/Layout/BorderResize.hs index ec67a32..ea7337a 100644 --- a/XMonad/Layout/BorderResize.hs +++ b/XMonad/Layout/BorderResize.hs @@ -63,15 +63,6 @@ brBorderOffset = 5 brBorderSize :: Dimension brBorderSize = 10 -brCursorRightSide :: Glyph -brCursorRightSide = 96 -brCursorLeftSide :: Glyph -brCursorLeftSide = 70 -brCursorTopSide :: Glyph -brCursorTopSide = 138 -brCursorBottomSide :: Glyph -brCursorBottomSide = 16 - borderResize :: l a -> ModifiedLayout BorderResize l a borderResize = ModifiedLayout (BR M.empty) @@ -155,10 +146,10 @@ createBorderLookupTable wrsLastTime = concat $ map processSingleEntry $ M.toList prepareBorders :: Rectangle -> [BorderBlueprint] prepareBorders (Rectangle x y wh ht) = - [((Rectangle (x + fi wh - brBorderOffset) y brBorderSize ht), brCursorRightSide , RightSideBorder), - ((Rectangle (x - brBorderOffset) y brBorderSize ht) , brCursorLeftSide , LeftSideBorder), - ((Rectangle x (y - brBorderOffset) wh brBorderSize) , brCursorTopSide , TopSideBorder), - ((Rectangle x (y + fi ht - brBorderOffset) wh brBorderSize), brCursorBottomSide , BottomSideBorder) + [((Rectangle (x + fi wh - brBorderOffset) y brBorderSize ht), xC_right_side , RightSideBorder), + ((Rectangle (x - brBorderOffset) y brBorderSize ht) , xC_left_side , LeftSideBorder), + ((Rectangle x (y - brBorderOffset) wh brBorderSize) , xC_top_side , TopSideBorder), + ((Rectangle x (y + fi ht - brBorderOffset) wh brBorderSize), xC_bottom_side, BottomSideBorder) ] handleResize :: [(Window, (BorderType, Window, Rectangle))] -> Event -> X () -- cgit v1.2.3