Associate child under mouse to expose-child
authorPhilippe Brochard <pbrochard@common-lisp.net>
Fri, 13 Dec 2013 21:02:08 +0000 (13 22:02 +0100)
committerPhilippe Brochard <pbrochard@common-lisp.net>
Fri, 13 Dec 2013 21:02:08 +0000 (13 22:02 +0100)
src/clfswm-expose-mode.lisp

index 31fbee1..50f36ef 100644 (file)
 (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))