From 70d94af8a5e6ea0eb3db791befa35802eeca29e8 Mon Sep 17 00:00:00 2001 From: frese Date: Tue, 15 Apr 2003 15:59:00 +0000 Subject: [PATCH] added 'transition to withdrawn' recognition --- src/root-manager.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/root-manager.scm b/src/root-manager.scm index 407aeab..4a3db39 100644 --- a/src/root-manager.scm +++ b/src/root-manager.scm @@ -54,7 +54,6 @@ (root-wm (make-root-wm dpy '() #f initial-manager in-channel options (make-sync-point))) ) - (mdisplay "creating root-wm\n") (set-root-wm:current-manager! root-wm initial-manager) (add-manager! root-wm initial-manager) @@ -133,6 +132,10 @@ (wm-manage-window (root-wm:current-manager root-wm) (map-request-event-window xevent) #f)) + ((and (unmap-event? xevent) (not (unmap-event-from-configure? xevent))) + ;; syntetic unmap event for a transition to withdrawn state + (set-wm-state! dpy (unmap-event-window xevent) + (wm-state withdrawn) none)) ))) (define (do-split root-wm orientation new-wm) @@ -246,7 +249,6 @@ (let ((manager (second msg))) ;; a split-wm should never be the current manager and the ;; workspace-wm too - (mdisplay "new current manager: " manager "\n") (if (and (not (eq? (manager-type split) (wm:type manager))) (not (eq? manager (root-wm:initial-manager root-wm)))) (set-root-wm:current-manager! root-wm manager))))