sawfish r4395 - in trunk: . lisp/sawfish/wm

[chrisb svn gnome org]

Author: chrisb
Date: Wed Feb  4 22:30:08 2009
New Revision: 4395
URL: http://svn.gnome.org/viewvc/sawfish?rev=4395&view=rev

Log:
* lisp/sawfish/wm/keymaps.jl: remove tab-keymap, add grouping to Button2-Off on titlebar


Modified:
   trunk/ChangeLog
   trunk/lisp/sawfish/wm/keymaps.jl

Modified: trunk/lisp/sawfish/wm/keymaps.jl
==============================================================================
--- trunk/lisp/sawfish/wm/keymaps.jl	(original)
+++ trunk/lisp/sawfish/wm/keymaps.jl	Wed Feb  4 22:30:08 2009
@@ -102,8 +102,7 @@
 			     "W-Button3-Click1" 'raise-lower-window
 			     "W-Button2-Click1" 'popup-window-menu
 			     "W-Button1-Move" 'move-window-interactively
-			     "Button1-Click1" 'raise-and-pass-through-click
-			     "H-g" 'add-to-group)
+			     "Button1-Click1" 'raise-and-pass-through-click)
     (_"Keymap containing bindings active when a client window is focused.")
     :group bindings
     :type keymap
@@ -121,7 +120,8 @@
 			    "Button3-Off" 'raise-lower-window
 			    "Button2-Move" 'resize-window-interactively
 			    "Button1-Off2" 'toggle-window-shaded
-			    "Button1-Move" 'move-window-interactively)
+			    "Button1-Move" 'move-window-interactively
+			    "Button2-Off" 'add-to-group)
     (_"Keymap containing bindings active when the pointer is in the title of
 a window. (Only mouse-bindings are evaluated in this map.)")
     :group bindings
@@ -177,15 +177,6 @@
     :group bindings
     :type keymap)
 
-  (defcustom tab-keymap (bind-keys (make-keymap)
-  				   "Button1-Move" 'move-window-interactively
-				   "Button1-Off" 'raise-window
-				   "Button2-Off" 'mygroup
-				   "Button3-Off" 'raise-lower-window)
-    (_"Keymap containing bindings active when the pointer is on a tab")
-    :group bindings
-    :type keymap)
-
   (defvar pointer-motion-threshold 2
     "Distance in pixels pointer must move before generating motion events.")