aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2013-01-15 18:07:15 +0100
committerAdam Vogt <vogt.adam@gmail.com>2013-01-15 18:07:15 +0100
commit02d3e045d43d958007ddfeabfef6aaf7ce84598e (patch)
treec671f15474db2eb2d0935eb37fbfc6de52fb4720 /XMonad
parentd7367a3be7647d7e60aed12a345a370a04e8a516 (diff)
downloadxmonad-02d3e045d43d958007ddfeabfef6aaf7ce84598e.tar.gz
xmonad-02d3e045d43d958007ddfeabfef6aaf7ce84598e.tar.xz
xmonad-02d3e045d43d958007ddfeabfef6aaf7ce84598e.zip
Issue 135 use wa_border_width for floating windows (neoraider)
Ignore-this: c8ed6ceaf9483e31771ac25d86532f6c darcs-hash:20130115170715-1499c-66a20256d8fc43296f5ecf16c7257e8d909f1d5f.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Operations.hs2
1 files changed, 1 insertions, 1 deletions
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