From 011438e7e0789c01822adf11d7a430af41ed1d4a Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 4 Jun 2007 08:44:18 +0200 Subject: Small clean up darcs-hash:20070604064418-a5988-38ebeb4b8f5793db4ff1ae7dbd0d079bea552c87 --- Operations.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Operations.hs b/Operations.hs index 92585db..3736081 100644 --- a/Operations.hs +++ b/Operations.hs @@ -139,10 +139,9 @@ windows f = do -- move/resize the floating windows, if there are any forM_ flt $ \fw -> whenJust (M.lookup fw (W.floating ws)) $ \(W.RationalRect rx ry rw rh) -> do - let Rectangle px py pw ph = genericIndex xinesc (W.screen w) tileWindow fw $ Rectangle - (px + floor (toRational pw*rx)) (py + floor (toRational ph*ry)) - (floor (toRational pw*rw)) (floor (toRational ph*rh)) + (sx + floor (toRational sw*rx)) (sy + floor (toRational sh*ry)) + (floor (toRational sw*rw)) (floor (toRational sh*rh)) -- TODO seems fishy? -- Urgh. This is required because the fullscreen layout assumes that -- cgit v1.2.3