[clfswm-cvs] r166 - clfswm/src

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Mon Sep 22 05:26:14 2008
New Revision: 166

Modified:
   clfswm/src/clfswm-internal.lisp
Log:
show-all-children: Do not raise a child by default => far less flickering.

Modified: clfswm/src/clfswm-internal.lisp
==============================================================================
--- clfswm/src/clfswm-internal.lisp	(original)
+++ clfswm/src/clfswm-internal.lisp	Mon Sep 22 05:26:14 2008
@@ -592,14 +592,14 @@
 	       (when list
 		 (multiple-value-bind (xo1 yo1 xo2 yo2)
 		     (child-coordinates (first list))
-		   (push (not (dolist (c (rest list))
-				(multiple-value-bind (x1 y1 x2 y2)
-				    (child-coordinates c)
-				  (when (and (<= x1 xo1)
-					     (>= x2 xo2)
-					     (<= y1 yo1)
-					     (>= y2 yo2))
-				    (return t)))))
+		   (push (dolist (c (rest list) t)
+			   (multiple-value-bind (x1 y1 x2 y2)
+			       (child-coordinates c)
+			     (when (and (<= x1 xo1)
+					(>= x2 xo2)
+					(<= y1 yo1)
+					(>= y2 yo2))
+			       (return nil))))
 			 acc))
 		 (rec (rest list)))))
       (rec children)
@@ -629,7 +629,7 @@
 		      for raise-p in (raise-p-list reversed-children)
 		      do (rec child root raise-p))))))
       (rec-geom *current-root* nil t t)
-      (rec display-child nil t)
+      (rec display-child nil nil)
       (set-focus-to-current-child)
       geometry-change)))