[packages/xmonad.git] / xmonad-border.patch

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
Commit	Line	Data
b0c421b3 JP	1	diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs
	2	index 6bca311..bc69962 100644
	3	--- a/XMonad/Operations.hs
	4	+++ b/XMonad/Operations.hs
	5	@@ -450,7 +450,7 @@ floatLocation :: Window -> X (ScreenId, W.RationalRect)
	6	floatLocation w = withDisplay $ \d -> do
	7	ws <- gets windowset
	8	wa <- io $ getWindowAttributes d w
	9	- bw <- fi <$> asks (borderWidth . config)
	10	+ let bw = (fromIntegral . wa_border_width) wa
	11	sc <- fromMaybe (W.current ws) <$> pointScreen (fi $ wa_x wa) (fi $ wa_y wa)
	12
	13	let sr = screenRect . W.screenDetail $ sc