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

[Philippe Brochard]

Author: pbrochard
Date: Tue Oct  5 15:52:59 2010
New Revision: 346

Log:
src/clfswm-internal.lisp (show-all-children): Do not raise a child when its parent is hidden.

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

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Tue Oct  5 15:52:59 2010
@@ -1,3 +1,8 @@
+2010-10-05  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-internal.lisp (show-all-children): Do not raise a
+	child when its parent is hidden.
+
 2010-10-02  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm-circulate-mode.lisp (select-next-subchild): Add the

Modified: clfswm/src/clfswm-internal.lisp
==============================================================================
--- clfswm/src/clfswm-internal.lisp	(original)
+++ clfswm/src/clfswm-internal.lisp	Tue Oct  5 15:52:59 2010
@@ -576,11 +576,10 @@
   (with-slots (window show-window-p) frame
     (if show-window-p
 	(when (or *show-root-frame-p* (not (child-equal-p frame *current-root*)))
-	  (setf (xlib:window-background window) (get-color "Black"))
 	  (map-window window)
-	  (when raise-p (raise-window window)))
-	(hide-window window)))
-  (display-frame-info frame))
+	  (when raise-p (raise-window window))
+	  (display-frame-info frame))
+	(hide-window window))))
 
 
 
@@ -721,8 +720,9 @@
 	       (when (frame-p root)
 		 (let ((reversed-children (reverse (frame-child root))))
 		   (loop for child in reversed-children
-		      for raise-p in (raise-p-list reversed-children)
-		      do (rec child root raise-p))))))
+		      for c-raise-p in (raise-p-list reversed-children)
+		      do (rec child root (and c-raise-p
+					      (or (null parent) raise-p))))))))
       (rec-geom *current-root* nil t t)
       (rec display-child nil nil)
       (set-focus-to-current-child)