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

[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  2be90723a2266743adcce0ff14ab4af064c29ff4 (commit)
      from  4834bf07a3faeb9de9d6c99069810c49ead1f581 (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 2be90723a2266743adcce0ff14ab4af064c29ff4
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Sun Mar 24 09:11:52 2013 +0100

    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)))))
 
 
 

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

Summary of changes:
 src/clfswm-util.lisp |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)


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