[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1106-142-gfb5fe5f

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  fb5fe5fe1ca54228086486b67307cd13b029675f (commit)
      from  6c832664a41082e36acc88f4750b1991e1ac7f48 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit fb5fe5fe1ca54228086486b67307cd13b029675f
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Tue Oct 16 09:46:22 2012 +0200

    Correctly Configure roots on monitor change

diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index a584867..81c5e7e 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -866,6 +866,9 @@ XINERAMA version 1.1 opcode: 150
             (define-as-root frame x y w h)))))
 
 
+(defun finish-configuring-root ()
+  (ensure-at-least-one-root)
+  (setf (current-child) (first (frame-child (first (frame-child *root-frame*))))))
 
 
 
diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index c833ce2..7ae2f35 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -153,6 +153,7 @@
 (define-handler main-mode :configure-notify (window)
   (when (child-equal-p window *root*)
     (place-frames-from-xinerama-infos)
+    (finish-configuring-root)
     (show-all-children)
     (call-hook *root-size-change*)))
 
@@ -199,8 +200,7 @@
 
 (defun default-init-hook ()
   (place-frames-from-xinerama-infos)
-  (ensure-at-least-one-root)
-  (setf (current-child) (first (frame-child (first (frame-child *root-frame*))))))
+  (finish-configuring-root))
 
 
 (defun init-display ()

-----------------------------------------------------------------------

Summary of changes:
 src/clfswm-internal.lisp |    3 +++
 src/clfswm.lisp          |    4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager