From 3fee57a0c800f3222778359d73823f97c9d546ae Mon Sep 17 00:00:00 2001 From: Devin Mullins Date: Thu, 11 Sep 2008 07:39:09 +0200 Subject: add W.shiftMaster, fix float/tile-reordering bug darcs-hash:20080911053909-78224-d050fdbedac4eb39a96f30ec0679a9b67d274091.gz --- XMonad/Config.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad/Config.hs') diff --git a/XMonad/Config.hs b/XMonad/Config.hs index 52c04af..aab81f2 100644 --- a/XMonad/Config.hs +++ b/XMonad/Config.hs @@ -226,12 +226,12 @@ mouseBindings :: XConfig Layout -> M.Map (KeyMask, Button) (Window -> X ()) mouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $ -- mod-button1 %! Set the window to floating mode and move by dragging [ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w - >> windows W.swapMaster)) + >> windows W.shiftMaster)) -- mod-button2 %! Raise the window to the top of the stack - , ((modMask, button2), (\w -> focus w >> windows W.swapMaster)) + , ((modMask, button2), (\w -> focus w >> windows W.shiftMaster)) -- mod-button3 %! Set the window to floating mode and resize by dragging , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w - >> windows W.swapMaster)) + >> windows W.shiftMaster)) -- you may also bind events to the mouse scroll wheel (button4 and button5) ] -- cgit v1.2.3