[clfswm-cvs] r439 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Tue Apr 12 15:52:28 2011
New Revision: 439

Log:
binding(-second-mode).lisp: minor keys update (switch-to-last-child)

Modified:
   clfswm/src/bindings-second-mode.lisp
   clfswm/src/bindings.lisp
   clfswm/src/clfswm-util.lisp

Modified: clfswm/src/bindings-second-mode.lisp
==============================================================================
--- clfswm/src/bindings-second-mode.lisp	(original)
+++ clfswm/src/bindings-second-mode.lisp	Tue Apr 12 15:52:28 2011
@@ -117,7 +117,7 @@
   (define-second-key ("Tab" :mod-1) 'select-next-child)
   (define-second-key ("Tab" :mod-1 :shift) 'select-previous-child)
   (define-second-key ("Tab" :mod-1 :control) 'select-next-subchild)
-  (define-second-key ("Tab" :shift) 'switch-to-last-child)
+  (define-second-key ("Tab") 'switch-to-last-child)
   (define-second-key ("Return" :mod-1) 'enter-frame)
   (define-second-key ("Return" :mod-1 :shift) 'leave-frame)
   (define-second-key ("Return" :mod-5) 'frame-toggle-maximize)

Modified: clfswm/src/bindings.lisp
==============================================================================
--- clfswm/src/bindings.lisp	(original)
+++ clfswm/src/bindings.lisp	Tue Apr 12 15:52:28 2011
@@ -50,7 +50,6 @@
   (define-main-key ("Tab" :mod-1) 'select-next-child)
   (define-main-key ("Tab" :mod-1 :shift) 'select-previous-child)
   (define-main-key ("Tab" :mod-1 :control) 'select-next-subchild)
-  (define-main-key ("Tab" :shift) 'switch-to-last-child)
   (define-main-key ("Return" :mod-1) 'enter-frame)
   (define-main-key ("Return" :mod-1 :shift) 'leave-frame)
   (define-main-key ("Return" :mod-5) 'frame-toggle-maximize)

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Tue Apr 12 15:52:28 2011
@@ -1131,7 +1131,8 @@
 	      *current-child* *current-root*)
 	(focus-all-children *current-child* *current-child*)
 	(show-all-children t))
-      (setf last-child current-child))))
+      (setf last-child current-child))
+    (leave-second-mode)))