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

[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  38fe373b770a3667ce5e37ce330566a292b95bdf (commit)
      from  45578916d8500cea51369d6909a188da10863f78 (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 38fe373b770a3667ce5e37ce330566a292b95bdf
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Fri Nov 16 22:40:21 2012 +0100

    Do not redisplay children on unmap events when there is a fullscreend window

diff --git a/ChangeLog b/ChangeLog
index 9b5b79d..6c00a99 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2012-11-16  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* ChangeLog are now reported in git history.
+
 2012-10-08 Michael Raitza <spacefrogg-clfswm at meterriblecrew.net>
 
 	* src/tools.lisp (n-rotate-list): Implementation ehancements (1/2 GC,
diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index 25ed555..ae17299 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -112,7 +112,8 @@
       (setf (window-state window) +withdrawn-state+)
       (xlib:unmap-window window)
       (remove-child-in-all-frames window)
-      (show-all-children))))
+      (unless (null-size-window-in-frame *root-frame*)
+        (show-all-children)))))
 
 
 
@@ -123,7 +124,8 @@
 	      (xlib:window-equal window event-window))
     (when (find-child window *root-frame*)
       (delete-child-in-all-frames window)
-      (show-all-children)
+      (unless (null-size-window-in-frame *root-frame*)
+        (show-all-children))
       (xlib:destroy-window window))))
 
 (define-handler main-mode :enter-notify  (window root-x root-y)

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

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


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