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

added a manager-focused message

This commit is contained in:
frese 2003-04-22 21:44:29 +00:00
parent 1747f6cfa4
commit cce8c3e349
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/split-wm.scm
View File

@ -91,7 +91,12 @@
((fit-client-window) ((fit-client-window)
;; client changed it's size ?? ;; client changed it's size ??
#t) #t)
((manager-focused)
(let ((time (second msg))
(cc (wm-current-client wm)))
(if cc (wm-select-client wm cc time))))
((update-client-state) #t) ((update-client-state) #t)
;; Shortcuts ;; Shortcuts

5
src/switch-wm.scm
View File

@ -85,6 +85,11 @@
'focused 'focused
'active))) 'active)))
(set-titlebar-state! empty-titlebar state))) (set-titlebar-state! empty-titlebar state)))
((manager-focused)
(let ((time (second msg))
(cc (wm-current-client wm)))
(if cc (wm-select-client wm cc time))))
((update-client-state) ((update-client-state)
(let* ((client (second msg)) (let* ((client (second msg))