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

[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  aee2c88643e4fc35bae78a3575766822b47c7cff (commit)
      from  4ced474d5047017face5ff5f4796aa6a5b5046c6 (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 aee2c88643e4fc35bae78a3575766822b47c7cff
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Sun Jun 12 15:29:00 2011 +0200

    src/clfswm.lisp (:unmap-notify, :destroy-notify): Show all children just after the xlib tree cleanup -> reduce the flickering when a window is deleted or destroyed.

diff --git a/ChangeLog b/ChangeLog
index 8d4d1ba..21dfb53 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2011-06-12  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/clfswm.lisp (:unmap-notify, :destroy-notify): Show all
+	children just after the xlib tree cleanup -> reduce the
+	flickering when a window is deleted or destroyed.
+
 	* src/clfswm-internal.lisp (process-existing-windows): Do not
 	process the notify window.
 
diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index 6399eac..4e42f2e 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -95,6 +95,7 @@
 	       (not (xlib:window-equal window event-window)))
     (when (find-child window *root-frame*)
       (clean-windows-in-all-frames)
+      (show-all-children)
       (delete-child-in-all-frames window)
       (show-all-children))))
 
@@ -104,6 +105,7 @@
 	      (xlib:window-equal window event-window))
     (when (find-child window *root-frame*)
       (clean-windows-in-all-frames)
+      (show-all-children)
       (delete-child-in-all-frames window)
       (show-all-children))))
 

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

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


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