[clfswm-cvs] r9 - clfswm

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Sat Mar  1 17:30:08 2008
New Revision: 9

Modified:
   clfswm/bindings-second-mode.lisp
   clfswm/bindings.lisp
   clfswm/clfswm-internal.lisp
Log:
Alt-tab navigate throw childs-Alt-arrow navigate throw brothers

Modified: clfswm/bindings-second-mode.lisp
==============================================================================
--- clfswm/bindings-second-mode.lisp	(original)
+++ clfswm/bindings-second-mode.lisp	Sat Mar  1 17:30:08 2008
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Sat Mar  1 22:45:26 2008
+;;; #Date#: Sat Mar  1 23:26:11 2008
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: Bindings keys and mouse for second mode
@@ -173,8 +173,8 @@
 (define-second-key ("Down" :mod-1) 'select-next-level)
 (define-second-key ("Up" :mod-1) 'select-previous-level)
 
-(define-second-key ("Tab" :mod-1) 'select-next-brother)
-(define-second-key ("Tab" :mod-1 :shift) 'select-previous-brother)
+(define-second-key ("Tab" :mod-1) 'select-next-child)
+(define-second-key ("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	Sat Mar  1 17:30:08 2008
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Sat Mar  1 22:43:17 2008
+;;; #Date#: Sat Mar  1 23:24:37 2008
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: Bindings keys and mouse
@@ -48,8 +48,8 @@
 (define-main-key ("Down" :mod-1) 'select-next-level)
 (define-main-key ("Up" :mod-1) 'select-previous-level)
 
-(define-main-key ("Tab" :mod-1) 'select-next-brother)
-(define-main-key ("Tab" :mod-1 :shift) 'select-previous-brother)
+(define-main-key ("Tab" :mod-1) 'select-next-child)
+(define-main-key ("Tab" :mod-1 :shift) 'select-previous-child)
 
 (define-main-key ("Return" :mod-1) 'enter-group)
 (define-main-key ("Return" :mod-1 :shift) 'leave-group)

Modified: clfswm/clfswm-internal.lisp
==============================================================================
--- clfswm/clfswm-internal.lisp	(original)
+++ clfswm/clfswm-internal.lisp	Sat Mar  1 17:30:08 2008
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Sat Mar  1 22:44:26 2008
+;;; #Date#: Sat Mar  1 23:24:16 2008
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: Main functions