From 73451e0f4e12f355bdc932cb9a2e8ab1a39a5442 Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Wed, 8 Jun 2011 08:57:15 +0200 Subject: [PATCH] src/clfswm-internal.lisp (delete-child-and-children-in-all-frames): Delete or destroy children before displaying all children. --- ChangeLog | 6 ++++++ TODO | 2 -- src/clfswm-internal.lisp | 4 ++-- 3 files changed, 8 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index bb3d229..2d24a6c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2011-06-08 Philippe Brochard + + * src/clfswm-internal.lisp + (delete-child-and-children-in-all-frames): Delete or destroy + children before displaying all children. + 2011-06-05 Philippe Brochard * 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)) -- 2.11.4.GIT