[clfswm-cvs] r62 - in clfswm: . src

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Sun Mar 30 11:57:41 2008
New Revision: 62

Modified:
   clfswm/ChangeLog
   clfswm/src/bindings-second-mode.lisp
   clfswm/src/bindings.lisp
   clfswm/src/clfswm.lisp
Log:
Create a default frame in the root frame (Be sure to update your configuration file). Up/Down: Swap select previous/next level


Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sun Mar 30 11:57:41 2008
@@ -1,5 +1,11 @@
 2008-03-30  Philippe Brochard  <hocwp at free.fr>
 
+	* src/bindings.lisp (Up/Down): Swap select previous/next level.
+
+	* src/bindings-second-mode.lisp (Up/Down): Swap select previous/next level.
+
+	* src/clfswm.lisp (init-display): Create a default frame in the root frame.
+
 	* src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
 	(with-all-*): Reverse the child list to manage the first child last (like in 
 	show-all-children).

Modified: clfswm/src/bindings-second-mode.lisp
==============================================================================
--- clfswm/src/bindings-second-mode.lisp	(original)
+++ clfswm/src/bindings-second-mode.lisp	Sun Mar 30 11:57:41 2008
@@ -295,8 +295,8 @@
 (define-second-key ("Right" :mod-1) 'select-next-brother)
 (define-second-key ("Left" :mod-1) 'select-previous-brother)
 
-(define-second-key ("Down" :mod-1) 'select-next-level)
-(define-second-key ("Up" :mod-1) 'select-previous-level)
+(define-second-key ("Down" :mod-1) 'select-previous-level)
+(define-second-key ("Up" :mod-1) 'select-next-level)
 
 (define-second-key ("Tab" :mod-1) 'select-next-child)
 (define-second-key ("ISO_Left_Tab" :mod-1 :shift) 'select-previous-child)

Modified: clfswm/src/bindings.lisp
==============================================================================
--- clfswm/src/bindings.lisp	(original)
+++ clfswm/src/bindings.lisp	Sun Mar 30 11:57:41 2008
@@ -43,8 +43,8 @@
 (define-main-key ("Right" :mod-1) 'select-next-brother)
 (define-main-key ("Left" :mod-1) 'select-previous-brother)
 
-(define-main-key ("Down" :mod-1) 'select-next-level)
-(define-main-key ("Up" :mod-1) 'select-previous-level)
+(define-main-key ("Down" :mod-1) 'select-previous-level)
+(define-main-key ("Up" :mod-1) 'select-next-level)
 
 (define-main-key ("Tab" :mod-1) 'select-next-child)
 (define-main-key ("ISO_Left_Tab" :mod-1 :shift) 'select-previous-child)

Modified: clfswm/src/clfswm.lisp
==============================================================================
--- clfswm/src/clfswm.lisp	(original)
+++ clfswm/src/clfswm.lisp	Sun Mar 30 11:57:41 2008
@@ -224,6 +224,8 @@
   (setf *root-frame* (create-frame :name "Root" :number 0 :layout #'tile-space-layout)
 	*current-root* *root-frame*
 	*current-child* *current-root*)
+  (add-frame (create-frame :name "Default" :layout nil :x 0.1 :y 0.1 :w 0.8 :h 0.8) *root-frame*)
+  (setf *current-child* (first (frame-child *current-root*)))
   (call-hook *init-hook*)
   (process-existing-windows *screen*)
   (show-all-children)