[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. 73451e0f4e12f355bdc932cb9a2e8ab1a39a5442

[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  73451e0f4e12f355bdc932cb9a2e8ab1a39a5442 (commit)
      from  eae099d3e0683513130b31a59cdcfb8f5da3f3da (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 73451e0f4e12f355bdc932cb9a2e8ab1a39a5442
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Wed Jun 8 08:57:15 2011 +0200

    src/clfswm-internal.lisp (delete-child-and-children-in-all-frames): Delete or destroy children before displaying all children.

diff --git a/ChangeLog b/ChangeLog
index bb3d229..2d24a6c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2011-06-08  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-internal.lisp
+	(delete-child-and-children-in-all-frames): Delete or destroy
+	children before displaying all children.
+
 2011-06-05  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm-util.lisp (add-frame-in-parent-frame): New function
diff --git a/TODO b/TODO
index 0524af8..0aeb62d 100644
--- a/TODO
+++ b/TODO
@@ -7,8 +7,6 @@ URGENT PROBLEMS
 ===============
 Should handle these soon.
 
-Test both git repository on repo.or.cz and common-lisp.net
-
 -> Nothing here yet.
 
 
diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index 280eda3..24ddd3e 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -1172,9 +1172,9 @@ Warning:frame window and gc are freeed."
   (when (child-equal-p child *current-child*)
     (setf *current-child* *current-root*))
   (delete-child-and-children-in-frames child *root-frame*)
-  (show-all-children)
   (when (xlib:window-p child)
-    (funcall close-methode child)))
+    (funcall close-methode child))
+  (show-all-children))
 
 
 

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

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


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