From 13ebf0682b1a9c5960af1a48173751a47c0e0029 Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Sun, 17 Mar 2013 23:29:52 +0100 Subject: [PATCH] Do not unmap manually windows on unmap notify event --- load.lisp | 2 +- src/clfswm.lisp | 5 ++--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/load.lisp b/load.lisp index d8dd479..b0938fd 100644 --- 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")) diff --git a/src/clfswm.lisp b/src/clfswm.lisp index 62cdf76..e2f6ce5 100644 --- a/src/clfswm.lisp +++ b/src/clfswm.lisp @@ -105,17 +105,16 @@ (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) -- 2.11.4.GIT