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

added iconify client-message

This commit is contained in:
frese 2003-05-05 14:54:54 +00:00
parent 8c8e13639e
commit bd460b2902
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/root-manager.scm
View File

@ -149,6 +149,20 @@
(set-wm-state! dpy window (wm-state withdrawn) none) (set-wm-state! dpy window (wm-state withdrawn) none)
(if wm (if wm
(wm-unmanage-window wm window)))) (wm-unmanage-window wm window))))
((client-message-event? xevent)
(let* ((p (client-message-event-property xevent))
(type (property:type p))
(data (property:data p))
(window (client-message-event-window xevent))
(wm (manager-of-window root-wm window))
(iconic-state 3))
(if (equal? (get-atom-name dpy type) "WM_CHANGE_STATE")
(if (and (eq? (property:format p) (property-format long))
(not (null? data)) (= (car data) iconic-state))
(if wm
(wm-iconify-window wm window)
(warn "unmanaged window wants to be iconified"
window))))))
))) )))
(define (do-split root-wm orientation new-wm) (define (do-split root-wm orientation new-wm)