From 29b3dd3e5a9b59100a89bd221162d42c1ddd5b1c Mon Sep 17 00:00:00 2001
From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Sun, 7 Apr 2013 22:40:46 +0200
Subject: [PATCH] Destroy window is needed in some cases

---
 src/clfswm.lisp | 1 +
 1 file changed, 1 insertion(+)

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))))
 
 
-- 
2.11.4.GIT