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

5
src/split-wm.scm
View File

@ -92,6 +92,11 @@
;; 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

@ -86,6 +86,11 @@
'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))
(dpy (wm:dpy wm)) (dpy (wm:dpy wm))