Do not unmap manually windows on unmap notify event
authorPhilippe Brochard <pbrochard@common-lisp.net>
Sun, 17 Mar 2013 22:29:52 +0000 (17 23:29 +0100)
committerPhilippe Brochard <pbrochard@common-lisp.net>
Sun, 17 Mar 2013 22:29:52 +0000 (17 23:29 +0100)
load.lisp
src/clfswm.lisp

index d8dd479..b0938fd 100644 (file)
--- a/load.lisp
+++ b/load.lisp
@@ -170,4 +170,4 @@ from $XDG_CONFIG_HOME/clfswm/clfswmrc")
 #+:clfswm-build-image
 (progn
   (cl-user::load-info "Building CLFSWM executable image")
-   (build-lisp-image "clfswm"))
+  (build-lisp-image "clfswm"))
index 62cdf76..e2f6ce5 100644 (file)
 
 (define-handler main-mode :unmap-notify (send-event-p event-window window)
   (unless (and (not send-event-p)
-              (not (xlib:window-equal window event-window)))
+               (not (xlib:window-equal window event-window)))
     (when (find-child window *root-frame*)
       (setf (window-state window) +withdrawn-state+)
-      (xlib:unmap-window window)
       (remove-child-in-all-frames window)
       (show-all-children))))
 
 
 (define-handler main-mode :destroy-notify (send-event-p event-window window)
   (unless (or send-event-p
-             (xlib:window-equal window event-window))
+              (xlib:window-equal window event-window))
     (when (find-child window *root-frame*)
       (delete-child-in-all-frames window)
       (show-all-children)