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

changed the find-manager-at algorithm

This commit is contained in:
frese 2003-04-22 21:45:29 +00:00
parent cce8c3e349
commit 9ffc039d2d
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/root-manager.scm
View File

@ -399,22 +399,22 @@
(define (find-manager-at root-wm x y) (define (find-manager-at root-wm x y)
;; returns the upper-most manager at root-window's coords x y ;; returns the upper-most manager at root-window's coords x y
(let* ((dpy (root-wm:dpy root-wm)) (letrec ((dpy (root-wm:dpy root-wm))
(candidates (root-window (default-root-window dpy))
(filter (lambda (wm) (child-at (lambda (window x y)
(point-in-rectangle? (root-rectangle dpy (wm:window wm)) (let ((res (translate-coordinates dpy root-window window
x y)) x y)))
(root-wm-managers root-wm)))) (and res (not (zero? (third res))) (third res)))))
(letrec ((loop (lambda (wm level rest) (window-at (lambda (window x y)
(if (null? rest) (let ((child (child-at window x y)))
wm (if child
(let* ((next (car rest)) (window-at child x y)
(next-level (window-level dpy window))))
(wm:window next)))) (manager-of-window (lambda (window)
(if (> next-level level) (or (get-manager-by-window root-wm window)
(loop next next-level (cdr rest)) (let ((w (window-parent dpy window)))
(loop wm level (cdr rest)))))))) (and w (manager-of-window w)))))))
(loop #f -1 candidates)))) (manager-of-window (window-at root-window x y))))
(define (get-manager-by-window root-wm window) (define (get-manager-by-window root-wm window)
(let ((l (filter (lambda (wm) (let ((l (filter (lambda (wm)