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

[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  b66ea9961ad14c2a937a46639e531eabba430dae (commit)
      from  97e0c3565f478114d3d59634dae227859df7d209 (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 b66ea9961ad14c2a937a46639e531eabba430dae
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Tue May 22 22:23:12 2012 +0200

    src/clfswm-internal.lisp (place-frames-from-xinerama-infos): Place reset-root-list in the better place init-display

diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index b03faf7..61b8d20 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -762,7 +762,6 @@ XINERAMA version 1.1 opcode: 150
   (let ((sizes (get-connected-heads-size))
         (width (xlib:screen-width *screen*))
         (height (xlib:screen-height *screen*)))
-    (reset-root-list)
     ;;(add-placed-frame-tmp (first (frame-child *root-frame*)) 2)
     (if (<= (length sizes) 1)
         (define-as-root *root-frame* (- *border-size*) (- *border-size*) width height)
diff --git a/src/clfswm-placement.lisp b/src/clfswm-placement.lisp
index dacf006..e04ac20 100644
--- a/src/clfswm-placement.lisp
+++ b/src/clfswm-placement.lisp
@@ -214,6 +214,8 @@
             (root-w root) (root-h root))))
 
 
+
+
 (defmacro with-current-root-coord ((x y w h) &body body)
   `(multiple-value-bind (,x ,y ,w ,h)
        (current-root-coord)
diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index 2cf7718..c1bb567 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -180,6 +180,7 @@
 
 
 (defun init-display ()
+  (reset-root-list)
   (fill-handle-event-fun-symbols)
   (assoc-keyword-handle-event 'main-mode)
   (setf *screen* (first (xlib:display-roots *display*))

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

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


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