Add docstrings for mouse controls

darcs-hash:20070824045939-a5988-2c9c3dd3cb6925c0aaccc0c857335c15d4deaf3c

1 files changed, 3 insertions, 0 deletions

diff --git a/Config.hs b/Config.hs
index dfd99af..34dae0e 100644
--- a/Config.hs
+++ b/Config.hs
@@ -178,6 +178,9 @@ keys = M.fromList $
 --
 mouseBindings :: M.Map (KeyMask, Button) (Window -> X ())
 mouseBindings = M.fromList $
+    -- mod-button1 @@ Set the window to floating mode and move by dragging
     [ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w))
+    -- mod-button2 @@ Raise the window to the top of the stack
     , ((modMask, button2), (\w -> focus w >> swapMaster))
+    -- mod-button3 @@ Set the window to floating mode and resize by dragging
     , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w)) ]