[clfswm-cvs] r387 - in clfswm: . src

[Philippe Brochard]

Author: pbrochard
Date: Sun Nov 14 04:07:00 2010
New Revision: 387

Log:
src/clfswm-util.lisp (find-child-under-mouse): Do not find hidden windows.

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-util.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sun Nov 14 04:07:00 2010
@@ -1,3 +1,8 @@
+2010-11-14  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-util.lisp (find-child-under-mouse): Do not find
+	hidden windows.
+
 2010-11-13  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm-expose-mode.lisp (expose-mode-display-accel-windows):

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Sun Nov 14 04:07:00 2010
@@ -161,7 +161,8 @@
   "Return the child under the mouse"
   (let ((ret nil))
     (with-all-windows-frames-and-parent (*current-root* child parent)
-      (when (and (or (managed-window-p child parent) (child-equal-p parent *current-child*))
+      (when (and (not (window-hidden-p child))
+		 (or (managed-window-p child parent) (child-equal-p parent *current-child*))
 		 (<= (xlib:drawable-x child) x (+ (xlib:drawable-x child) (xlib:drawable-width child)))
 		 (<= (xlib:drawable-y child) y (+ (xlib:drawable-y child) (xlib:drawable-height child))))
 	(if first-foundp