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

added setting of the WM_STATE property 

added 'transition to withdrawn' recognition
This commit is contained in:
frese 2003-04-15 15:57:32 +00:00
parent af17dd9326
commit 231b674a6e
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/manager.scm
View File

@ -158,6 +158,7 @@
(list 'init-client client maybe-rect)) (list 'init-client client maybe-rect))
(send internal-out-channel (list 'fit-client client)) (send internal-out-channel (list 'fit-client client))
;; sync ?? ;; sync ??
(set-wm-state! dpy window (wm-state normal) none)
(map-window dpy window) (map-window dpy window)
(send internal-out-channel (list 'update-client-state client)))) (send internal-out-channel (list 'update-client-state client))))
@ -412,7 +413,11 @@
(mdisplay "manager " (wm:type wm) " reparented client\n") (mdisplay "manager " (wm:type wm) " reparented client\n")
(wm-deinit-client wm client) (wm-deinit-client wm client)
(exit 'reparent)))) (exit 'reparent))))
;; TODO: withdrawn-state etc. unmap-event ... ((unmap-event? xevent)
;; might be the transition to withdrawn-state, wm-state
;; change by root-manager
(wm-deinit-client wm client)
(exit 'unmap))
((destroy-window-event? xevent) ((destroy-window-event? xevent)
(mdisplay "destroy-window-event client " wm " " client "\n") (mdisplay "destroy-window-event client " wm " " client "\n")
(if (eq? (client:window client) (destroy-window-event-event xevent)) (if (eq? (client:window client) (destroy-window-event-event xevent))