From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Sun, 7 Apr 2013 20:40:46 +0000 (+0200)
Subject: Destroy window is needed in some cases
X-Git-Url: https://repo.or.cz/w/clfswm.git/commitdiff_plain/29b3dd3e5a9b59100a89bd221162d42c1ddd5b1c

Destroy window is needed in some cases
---

diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index 5b32fd6..ec70a9a 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -117,6 +117,7 @@
               (xlib:window-equal window event-window))
     (when (find-child window *root-frame*)
       (delete-child-in-all-frames window)
+      (xlib:destroy-window window)
       (show-all-children))))