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

changed focus-passing for split-wm 

fixed client order
This commit is contained in:
frese 2003-04-17 14:10:23 +00:00
parent 2bb7ad1876
commit f9921315de
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/manager.scm
View File

@ -132,10 +132,12 @@
(if (equal? name (intern-atom dpy "WM_TAKE_FOCUS" #f)) (if (equal? name (intern-atom dpy "WM_TAKE_FOCUS" #f))
(begin (begin
(set-input-focus dpy main-window (revert-to parent) time) (set-input-focus dpy main-window (revert-to parent) time)
(if client (if (and client (eq? (manager-type split)
(wm:type wm)))
(handle-external-message wm exit (handle-external-message wm exit
(list 'select-client client (list 'select-client client
time))))) time)))
))
(if (equal? name (intern-atom dpy "WM_DELETE_WINDOW" #f)) (if (equal? name (intern-atom dpy "WM_DELETE_WINDOW" #f))
(if (null? (wm:clients wm)) (if (null? (wm:clients wm))
;; (destroy-wm wm) would dead-lock ;; (destroy-wm wm) would dead-lock
@ -153,7 +155,7 @@
(let* ((window (second msg)) (let* ((window (second msg))
(client (create-client wm window)) (client (create-client wm window))
(maybe-rect (third msg))) (maybe-rect (third msg)))
(set-wm:clients! wm (cons client (wm:clients wm))) (set-wm:clients! wm (append (wm:clients wm) (list client)))
(send internal-out-channel (send internal-out-channel
(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))