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

fixed select-next/previous-client to work on the titlebar-order of clients

This commit is contained in:
frese 2004-01-29 14:10:20 +00:00
parent 9cfdc62d28
commit 5445ed4683
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/switch-wm.scm
View File

@ -155,8 +155,8 @@
(if titlebar (if titlebar
(set-titlebar-title! titlebar name))))) (set-titlebar-title! titlebar name)))))
((select-next) (select-next-client wm (second msg))) ((select-next) (select-next-client wm data (second msg)))
((select-previous) (select-previous-client wm (second msg))) ((select-previous) (select-previous-client wm data (second msg)))
((swap-next) (swap-titlebar-with-next wm data (second msg))) ((swap-next) (swap-titlebar-with-next wm data (second msg)))
((swap-previous) (swap-titlebar-with-previous wm data (second msg))) ((swap-previous) (swap-titlebar-with-previous wm data (second msg)))
@ -351,11 +351,11 @@
(wm-select-client wm (cadr l) time)) (wm-select-client wm (cadr l) time))
(loop (cdr l))))))) (loop (cdr l)))))))
(define (select-next-client wm time) (define (select-next-client wm data time)
(select-next-client* wm (wm-clients wm) time)) (select-next-client* wm (map car (data:titlebars data)) time))
(define (select-previous-client wm time) (define (select-previous-client wm data time)
(select-next-client* wm (reverse (wm-clients wm)) time)) (select-next-client* wm (reverse (map car (data:titlebars data))) time))
;; *** ;; ***