From: Philippe Brochard Date: Sun, 24 Mar 2013 08:11:52 +0000 (+0100) Subject: Use in-child to find child under mouse pointer X-Git-Url: https://repo.or.cz/w/clfswm.git/commitdiff_plain/2be90723a2266743adcce0ff14ab4af064c29ff4 Use in-child to find child under mouse pointer --- diff --git a/src/clfswm-util.lisp b/src/clfswm-util.lisp index 56a2a85..9440d58 100644 --- a/src/clfswm-util.lisp +++ b/src/clfswm-util.lisp @@ -367,10 +367,8 @@ Write (defparameter *contrib-dir* \"/usr/local/lib/clfswm/\") in ~A.~%" (defun find-child-under-mouse-in-child-tree (x y) (dolist (child-rect (get-displayed-child)) - (let ((child (child-rect-child child-rect))) - (when (in-rect x y (x-drawable-x child) (x-drawable-y child) - (x-drawable-width child) (x-drawable-height child)) - (return-from find-child-under-mouse-in-child-tree (child-rect-child child-rect)))))) + (when (in-child (child-rect-child child-rect) x y) + (return-from find-child-under-mouse-in-child-tree (child-rect-child child-rect)))))