scsh-conservatory
/
orion-wm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added 'transition to withdrawn' recognition

This commit is contained in:
frese 2003-04-15 15:59:00 +00:00
parent 231b674a6e
commit 70d94af8a5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/root-manager.scm
View File

@ -54,7 +54,6 @@
(root-wm (make-root-wm dpy '() #f initial-manager in-channel options (root-wm (make-root-wm dpy '() #f initial-manager in-channel options
(make-sync-point))) (make-sync-point)))
) )
(mdisplay "creating root-wm\n")
(set-root-wm:current-manager! root-wm initial-manager) (set-root-wm:current-manager! root-wm initial-manager)
(add-manager! root-wm initial-manager) (add-manager! root-wm initial-manager)
@ -133,6 +132,10 @@
(wm-manage-window (root-wm:current-manager root-wm) (wm-manage-window (root-wm:current-manager root-wm)
(map-request-event-window xevent) (map-request-event-window xevent)
#f)) #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) (define (do-split root-wm orientation new-wm)
@ -246,7 +249,6 @@
(let ((manager (second msg))) (let ((manager (second msg)))
;; a split-wm should never be the current manager and the ;; a split-wm should never be the current manager and the
;; workspace-wm too ;; workspace-wm too
(mdisplay "new current manager: " manager "\n")
(if (and (not (eq? (manager-type split) (wm:type manager))) (if (and (not (eq? (manager-type split) (wm:type manager)))
(not (eq? manager (root-wm:initial-manager root-wm)))) (not (eq? manager (root-wm:initial-manager root-wm))))
(set-root-wm:current-manager! root-wm manager)))) (set-root-wm:current-manager! root-wm manager))))