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

View File

@ -158,6 +158,7 @@
(list 'init-client client maybe-rect))
(send internal-out-channel (list 'fit-client client))
;; sync ??
(set-wm-state! dpy window (wm-state normal) none)
(map-window dpy window)
(send internal-out-channel (list 'update-client-state client))))
@ -412,7 +413,11 @@
(mdisplay "manager " (wm:type wm) " reparented client\n")
(wm-deinit-client wm client)
(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)
(mdisplay "destroy-window-event client " wm " " client "\n")
(if (eq? (client:window client) (destroy-window-event-event xevent))