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

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Sun Mar 30 11:45:01 2008
New Revision: 61

Modified:
   clfswm/ChangeLog
   clfswm/TODO
   clfswm/src/clfswm-internal.lisp
Log:
In with-all-*: Reverse the child list to manage the first child last (like in show-all-children)


Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sun Mar 30 11:45:01 2008
@@ -1,6 +1,8 @@
 2008-03-30  Philippe Brochard  <hocwp at free.fr>
 
 	* src/clfswm-internal.lisp (place-frame): Place frame from real (pixel) coordinates.
+	(with-all-*): Reverse the child list to manage the first child last (like in 
+	show-all-children).
 
 	* src/config.lisp (*create-frame-on-root*): New variable: Create a new frame on the
 	root window only if true.
@@ -122,8 +124,10 @@
 
 2008-02-24  Philippe Brochard  <hocwp at free.fr>
 
-	* *: Major update - No more reference  to workspaces. The main
-	structure is a tree of groups or application windows.
+	* ************************************************************ *
+	*: Major update - No more reference  to workspaces. The main   *
+	structure is a tree of groups or application windows.          *
+	* ************************************************************ *
 
 2008-02-07  Philippe Brochard  <hocwp at free.fr>
 

Modified: clfswm/TODO
==============================================================================
--- clfswm/TODO	(original)
+++ clfswm/TODO	Sun Mar 30 11:45:01 2008
@@ -8,9 +8,6 @@
 Should handle these soon.
 
 Rewrote all useful code present in 0801 version.
-
-- mouse operations: A beginnig is done. Now in second mode: focus child+ resize/move window's father [Philippe]
-
 - Hide a window when its size is less than hint minimal size. [Philippe]
 - Bind alt+1/2/3/4... to a particular child: [Philippe]
    If bind exist -> focus this child
@@ -33,6 +30,8 @@
   get-frame-by-name (path): return the frame that its own frame has this name if it exists such a frame
   get-window-by-name (path): return the window that its own frame that its own frame has this name if it exists such a window.
 
+- Adapt frame to window hints
+
 
 MAYBE
 =====

Modified: clfswm/src/clfswm-internal.lisp
==============================================================================
--- clfswm/src/clfswm-internal.lisp	(original)
+++ clfswm/src/clfswm-internal.lisp	Sun Mar 30 11:45:01 2008
@@ -132,7 +132,7 @@
     `(labels ((,rec (,child)
 		, at body
 		(when (frame-p ,child)
-		  (dolist (,sub-child (frame-child ,child))
+		  (dolist (,sub-child (reverse (frame-child ,child)))
 		    (,rec ,sub-child)))))
        (,rec ,root))))
 
@@ -144,7 +144,7 @@
     `(labels ((,rec (,frame)
 		(when (frame-p ,frame)
 		  , at body
-		  (dolist (,child (frame-child ,frame))
+		  (dolist (,child (reverse (frame-child ,frame)))
 		    (,rec ,child)))))
        (,rec ,root))))
 
@@ -157,7 +157,7 @@
 		(when (xlib:window-p ,window)
 		  , at body)
 		(when (frame-p ,window)
-		  (dolist (,child (frame-child ,window))
+		  (dolist (,child (reverse (frame-child ,window)))
 		    (,rec ,child)))))
        (,rec ,root))))
 
@@ -171,7 +171,7 @@
 		(typecase ,child
 		  (xlib:window ,body-window)
 		  (frame ,body-frame
-			 (dolist (,sub-child (frame-child ,child))
+			 (dolist (,sub-child (reverse (frame-child ,child)))
 			   (,rec ,sub-child))))))
        (,rec ,root))))