From 02d3e045d43d958007ddfeabfef6aaf7ce84598e Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Tue, 15 Jan 2013 18:07:15 +0100
Subject: Issue 135 use wa_border_width for floating windows (neoraider)

Ignore-this: c8ed6ceaf9483e31771ac25d86532f6c

darcs-hash:20130115170715-1499c-66a20256d8fc43296f5ecf16c7257e8d909f1d5f.gz
---
 XMonad/Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad')

diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs
index 6bca311..bc69962 100644
--- a/XMonad/Operations.hs
+++ b/XMonad/Operations.hs
@@ -450,7 +450,7 @@ floatLocation :: Window -> X (ScreenId, W.RationalRect)
 floatLocation w = withDisplay $ \d -> do
     ws <- gets windowset
     wa <- io $ getWindowAttributes d w
-    bw <- fi <$> asks (borderWidth . config)
+    let bw = (fromIntegral . wa_border_width) wa
     sc <- fromMaybe (W.current ws) <$> pointScreen (fi $ wa_x wa) (fi $ wa_y wa)
 
     let sr = screenRect . W.screenDetail $ sc
-- 
cgit v1.2.3