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

added setting the wm-state property for normal clients

This commit is contained in:
frese 2003-04-16 15:01:43 +00:00
parent 80ac9fd2de
commit 42a49bfd15
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/root-manager.scm
View File

@ -118,6 +118,7 @@
(sync-point-wait (root-wm:finish root-wm))) (sync-point-wait (root-wm:finish root-wm)))
(define (root-wm-manage-window root-wm window) (define (root-wm-manage-window root-wm window)
(set-wm-state! (root-wm:dpy root-wm) window (wm-state normal) none)
(wm-manage-window (root-wm:current-manager root-wm) window)) (wm-manage-window (root-wm:current-manager root-wm) window))
(define (handle-xevent root-wm exit xevent) (define (handle-xevent root-wm exit xevent)
@ -129,9 +130,7 @@
(configure-window dpy (configure-request-event-window xevent) (configure-window dpy (configure-request-event-window xevent)
(configure-request-event-window-change-alist xevent))) (configure-request-event-window-change-alist xevent)))
((map-request-event? xevent) ((map-request-event? xevent)
(wm-manage-window (root-wm:current-manager root-wm) (root-wm-manage-window root-wm (map-request-event-window xevent)))
(map-request-event-window xevent)
#f))
((and (unmap-event? xevent) (not (unmap-event-from-configure? xevent))) ((and (unmap-event? xevent) (not (unmap-event-from-configure? xevent)))
;; syntetic unmap event for a transition to withdrawn state ;; syntetic unmap event for a transition to withdrawn state
(set-wm-state! dpy (unmap-event-window xevent) (set-wm-state! dpy (unmap-event-window xevent)