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

[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  f47c93af277a72af7e67b8417d0bff5fc11d6436 (commit)
      from  393a3d6cd2e88b9792d328f8fa2e2b796451fb7c (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 f47c93af277a72af7e67b8417d0bff5fc11d6436
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Wed Nov 28 23:35:35 2012 +0100

    Reset last head sizes on CLFSWM reset

diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index ea0a3eb..0531d92 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -852,6 +852,9 @@ XINERAMA version 1.1 opcode: 150
 
 
 (let ((last-sizes nil))
+  (defun reset-last-head-size ()
+    (setf last-sizes nil))
+
   (defun place-frames-from-xinerama-infos ()
     "Place frames according to xdpyinfo/xinerama informations"
     (let ((sizes (get-connected-heads-size))
diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index ae17299..c531d04 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -209,6 +209,7 @@
 
 (defun init-display ()
   (reset-root-list)
+  (reset-last-head-size)
   (reset-bind-or-jump-slots)
   (reset-open-menu)
   (fill-handle-event-fun-symbols)

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

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


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