[clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-52-g0e82d82

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  0e82d8207d00a3d4cfc55a439d9cd01768ad6a90 (commit)
      from  51f9f1574d42c723e55577fbc4a5f858e2af1d14 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 0e82d8207d00a3d4cfc55a439d9cd01768ad6a90
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Fri Dec 13 22:02:08 2013 +0100

    Associate child under mouse to expose-child

diff --git a/src/clfswm-expose-mode.lisp b/src/clfswm-expose-mode.lisp
index 31fbee1..50f36ef 100644
--- a/src/clfswm-expose-mode.lisp
+++ b/src/clfswm-expose-mode.lisp
@@ -133,7 +133,8 @@
 (defun expose-query-button-press-hook (code state x y)
   (declare (ignore state))
   (when (= code 1)
-    (setf *expose-selected-child* (find-child-under-mouse x y)))
+    (setf *expose-selected-child*
+          (find (find-child-under-mouse x y) *expose-child-list* :test #'child-equal-p :key #'expose-child-child)))
   (leave-query-mode :click))
 
 

-----------------------------------------------------------------------

Summary of changes:
 src/clfswm-expose-mode.lisp |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager