added setting of the WM_STATE property
added 'transition to withdrawn' recognition
This commit is contained in:
parent
af17dd9326
commit
231b674a6e
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue