Do not destroy manually windows on destroy notify event (clfswm is a non reparent...
authorPhilippe Brochard <pbrochard@common-lisp.net>
Fri, 22 Mar 2013 22:11:38 +0000 (22 23:11 +0100)
committerPhilippe Brochard <pbrochard@common-lisp.net>
Fri, 22 Mar 2013 22:11:38 +0000 (22 23:11 +0100)
src/clfswm.lisp

index e2f6ce5..34f50ad 100644 (file)
               (xlib:window-equal window event-window))
     (when (find-child window *root-frame*)
       (delete-child-in-all-frames window)
-      (show-all-children)
-      (xlib:destroy-window window))))
+      (show-all-children))))
 
 
 (define-handler main-mode :enter-notify  (window root-x root-y)