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

[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  45578916d8500cea51369d6909a188da10863f78 (commit)
      from  68c2716c0a8a3e2725b67b69ea7bcef43982d411 (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 45578916d8500cea51369d6909a188da10863f78
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Wed Nov 14 21:59:02 2012 +0100

    Do not update current size when there is only geometry change and not head structure change

diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index 9588f8b..8653973 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -855,7 +855,9 @@ XINERAMA version 1.1 opcode: 150
                          (setf (root-x root) x
                                (root-y root) y
                                (root-w root) w
-                               (root-h root) h))))
+                               (root-h root) h)))
+                 (setf last-sizes sizes)
+                 :update)
                (create-root-geometry ()
                  (reset-root-list)
                  ;; Add frames in *root-frame* until we get the same number as screen heads
@@ -882,12 +884,13 @@ XINERAMA version 1.1 opcode: 150
                          ;;(add-placed-frame-tmp frame 2)  ;; For tests
                          (unless (frame-child frame)
                            (add-frame (create-frame) frame))
-                         (define-as-root frame x y w h)))))
+                         (define-as-root frame x y w h)))
+                 (setf last-sizes sizes)
+                 nil))
         (format t "Screen sizes: ~A~%" sizes)
         (if (= (length sizes) (length last-sizes))
             (update-root-geometry)
-            (create-root-geometry))
-        (setf last-sizes sizes)))))
+            (create-root-geometry))))))
 
 
 
diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index 3a31519..25ed555 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -154,8 +154,8 @@
 (define-handler main-mode :configure-notify (window)
   (when (child-equal-p window *root*)
     (unless (null-size-window-in-frame *root-frame*)
-      (place-frames-from-xinerama-infos)
-      (finish-configuring-root)
+      (unless (eql (place-frames-from-xinerama-infos) :update)
+        (finish-configuring-root))
       (show-all-children)
       (call-hook *root-size-change-hook*))))
 

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

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


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