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

Switch off ignoring of enter-notify after any enter-notify

This commit is contained in:
mainzelm 2003-05-19 14:36:00 +00:00
parent 5f10ad3350
commit 6119b763e8
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/manager.scm
View File

@ -420,16 +420,20 @@
;; ((circulate-event? xevent) ;; ((circulate-event? xevent)
;; (send internal-out-channel (list 'update-client-state client))) ;; (send internal-out-channel (list 'update-client-state client)))
((eq? (event-type enter-notify) type) ((eq? (event-type enter-notify) type)
(let ((lazy-wm-select-client
(lambda ()
(if (and (not (eq? client (wm-current-client wm)))
(not (window-contains-focus? dpy (client:window client))))
(wm-select-client wm client (crossing-event-time xevent))))))
(if (and (memq 'enter (get-option-value (wm:options wm) 'focus-policy)) (if (and (memq 'enter (get-option-value (wm:options wm) 'focus-policy))
(window-exists? dpy (client:window client)) (window-exists? dpy (client:window client)))
(not (eq? client (wm-current-client wm)))
(not (window-contains-focus? dpy (client:window client))))
(if (ignore-next-enter-notify?) (if (ignore-next-enter-notify?)
(begin (begin
(accept-next-enter-notify!) (accept-next-enter-notify!)
(if (not (wm-current-client wm)) (if (not (wm-current-client wm))
(wm-select-client wm client (crossing-event-time xevent)))) (lazy-wm-select-client)))
(wm-select-client wm client (crossing-event-time xevent))))) (lazy-wm-select-client)))))
((eq? (event-type button-press) type) ((eq? (event-type button-press) type)
(if (memq 'click (get-option-value (wm:options wm) 'focus-policy)) (if (memq 'click (get-option-value (wm:options wm) 'focus-policy))