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

[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  b317f0fde0d41f049d76ecbc0fb3fb4c7aaff299 (commit)
      from  3ebdf875abd221d51de859405d4c848890b3dfc3 (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 b317f0fde0d41f049d76ecbc0fb3fb4c7aaff299
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Sun Oct 21 13:44:41 2012 +0200

    Do not update root geometry when a fullscreened window change root size

diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index 7e404ab..f2ca58c 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -489,6 +489,16 @@
 
 
 
+
+(defun null-size-window-in-frame (frame)
+  (let ((null-size-window-p nil))
+    (with-all-windows (frame window)
+      (when (null-size-window-p window)
+        (setf null-size-window-p t)))
+    null-size-window-p))
+
+
+
 (defun create-frame-window ()
   (let ((win (xlib:create-window :parent *root*
                                  :x 0
diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index 59150ba..c458d10 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -150,12 +150,14 @@
   (awhen (find-frame-window window)
     (display-frame-info it)))
 
+
 (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*)))
+    (unless (null-size-window-in-frame *root-frame*)
+      (place-frames-from-xinerama-infos)
+      (finish-configuring-root)
+      (show-all-children)
+      (call-hook *root-size-change*))))
 
 
 (defun error-handler (display error-key &rest key-vals &key asynchronous &allow-other-keys)

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

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


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