Commit 0e82d820 authored by Philippe Brochard's avatar Philippe Brochard
Browse files

Associate child under mouse to expose-child

parent 51f9f157
......@@ -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))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment