From a06c64146849a653303aa9ee479c4eb7c72e26db Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
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/MouseResizableTile.hs | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

(limited to 'XMonad/Layout/MouseResizableTile.hs')

diff --git a/XMonad/Layout/MouseResizableTile.hs b/XMonad/Layout/MouseResizableTile.hs
index 3b02927..56cc5da 100644
--- a/XMonad/Layout/MouseResizableTile.hs
+++ b/XMonad/Layout/MouseResizableTile.hs
@@ -90,10 +90,6 @@ mrtDraggerOffset :: Position
 mrtDraggerOffset = 3
 mrtDraggerSize :: Dimension
 mrtDraggerSize = 6
-mrtHDoubleArrow :: Glyph
-mrtHDoubleArrow = 108
-mrtVDoubleArrow :: Glyph
-mrtVDoubleArrow = 116
 
 mouseResizableTile :: MouseResizableTile a
 mouseResizableTile = MRT 1 mrtFraction [] [] [] 0 0 False
@@ -155,9 +151,9 @@ adjustForMirror False dragger = dragger
 adjustForMirror True (draggerRect, draggerCursor, draggerInfo) =
         (mirrorRect draggerRect, draggerCursor', draggerInfo)
     where
-        draggerCursor' = if (draggerCursor == mrtHDoubleArrow)
-                            then mrtVDoubleArrow
-                            else mrtHDoubleArrow
+        draggerCursor' = if (draggerCursor == xC_sb_h_double_arrow)
+                            then xC_sb_v_double_arrow
+                            else xC_sb_h_double_arrow
 
 modifySlave :: MouseResizableTile a -> Rational-> MouseResizableTile a
 modifySlave state delta =
@@ -217,12 +213,12 @@ splitVertically (f:fx) (Rectangle sx sy sw sh) isLeft num =
         draggerInfo = if isLeft
                         then LeftSlaveDragger sy (fromIntegral sh) num
                         else RightSlaveDragger sy (fromIntegral sh) num
-        nextDragger = (draggerRect, mrtVDoubleArrow, draggerInfo)
+        nextDragger = (draggerRect, xC_sb_v_double_arrow, draggerInfo)
     in (nextRect : otherRects, nextDragger : otherDragger)
   where smallh = floor $ fromIntegral sh * f
 
 splitHorizontallyBy :: RealFrac r => r -> Rectangle -> ((Rectangle, Rectangle), DraggerWithRect)
-splitHorizontallyBy f (Rectangle sx sy sw sh) = ((leftHalf, rightHalf), (draggerRect, mrtHDoubleArrow, draggerInfo))
+splitHorizontallyBy f (Rectangle sx sy sw sh) = ((leftHalf, rightHalf), (draggerRect, xC_sb_h_double_arrow, draggerInfo))
   where leftw = floor $ fromIntegral sw * f
         leftHalf = Rectangle sx sy (leftw - mrtDraggerSize `div` 2) sh
         rightHalf = Rectangle (sx + fromIntegral leftw + mrtDraggerOffset) sy
-- 
cgit v1.2.3