diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2013-01-15 18:07:15 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2013-01-15 18:07:15 +0100 |
| commit | 5e6f0b439d474a72af6de3c69d4ddd95b7e6274d (patch) | |
| tree | c671f15474db2eb2d0935eb37fbfc6de52fb4720 /XMonad | |
| parent | 6643621bde0e90c1779918a83800e72119ebb299 (diff) | |
| download | metatile-5e6f0b439d474a72af6de3c69d4ddd95b7e6274d.tar metatile-5e6f0b439d474a72af6de3c69d4ddd95b7e6274d.zip | |
Issue 135 use wa_border_width for floating windows (neoraider)
Ignore-this: c8ed6ceaf9483e31771ac25d86532f6c
darcs-hash:20130115170715-1499c-66a20256d8fc43296f5ecf16c7257e8d909f1d5f
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Operations.hs | 2 |
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 |