[clfswm-cvs] r39 - clfswm

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Fri Mar 14 15:41:52 2008
New Revision: 39

Modified:
   clfswm/ChangeLog
   clfswm/bindings-second-mode.lisp
   clfswm/bindings.lisp
Log:
Use ISO_Left_Tab	instead of Tab for select-previous-child.


Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Fri Mar 14 15:41:52 2008
@@ -1,3 +1,8 @@
+2008-03-14  Philippe Brochard  <hocwp at free.fr>
+
+	* bindings-second-mode.lisp ("ISO_Left_Tab"): Use ISO_Left_Tab
+	instead of Tab for select-previous-child.
+
 2008-03-13  Philippe Brochard  <hocwp at free.fr>
 
 	* clfswm-util.lisp (force-window-in-group/force-window-center-in-group):

Modified: clfswm/bindings-second-mode.lisp
==============================================================================
--- clfswm/bindings-second-mode.lisp	(original)
+++ clfswm/bindings-second-mode.lisp	Fri Mar 14 15:41:52 2008
@@ -179,7 +179,7 @@
 (define-second-key ("Up" :mod-1) 'select-previous-level)
 
 (define-second-key ("Tab" :mod-1) 'select-next-child)
-(define-second-key ("Tab" :mod-1 :shift) 'select-previous-child)
+(define-second-key ("ISO_Left_Tab" :mod-1 :shift) 'select-previous-child)
 
 (define-second-key ("Return" :mod-1) 'enter-group)
 (define-second-key ("Return" :mod-1 :shift) 'leave-group)

Modified: clfswm/bindings.lisp
==============================================================================
--- clfswm/bindings.lisp	(original)
+++ clfswm/bindings.lisp	Fri Mar 14 15:41:52 2008
@@ -47,7 +47,7 @@
 (define-main-key ("Up" :mod-1) 'select-previous-level)
 
 (define-main-key ("Tab" :mod-1) 'select-next-child)
-(define-main-key ("Tab" :mod-1 :shift) 'select-previous-child)
+(define-main-key ("ISO_Left_Tab" :mod-1 :shift) 'select-previous-child)
 
 (define-main-key ("Return" :mod-1) 'enter-group)
 (define-main-key ("Return" :mod-1 :shift) 'leave-group)
@@ -138,7 +138,7 @@
     (replay-button-event)))
 
 
-(define-main-mouse (1) nil 'mouse-click-to-focus)
+(define-main-mouse (1) 'mouse-click-to-focus 'test-mouse-binding)
 
 
 (define-main-mouse (4) 'mouse-select-next-level)