diff options
| -rw-r--r-- | Operations.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Operations.hs b/Operations.hs index f4a9d88..6e21120 100644 --- a/Operations.hs +++ b/Operations.hs @@ -529,9 +529,8 @@ mouseMoveWindow w = whenX (isClient w) $ withDisplay $ \d -> do (_, _, _, ox', oy', _, _, _) <- io $ queryPointer d w let ox = fromIntegral ox' oy = fromIntegral oy' - mouseDrag (\ex ey -> do - io $ moveWindow d w (fromIntegral (fromIntegral (wa_x wa) + (ex - ox))) - (fromIntegral (fromIntegral (wa_y wa) + (ey - oy)))) + mouseDrag (\ex ey -> io $ moveWindow d w (fromIntegral (fromIntegral (wa_x wa) + (ex - ox))) + (fromIntegral (fromIntegral (wa_y wa) + (ey - oy)))) (float w) mouseResizeWindow :: Window -> X () |