[clfswm-cvs] r345 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Mon Oct  4 16:41:15 2010
New Revision: 345

Log:
Circulate in subchild: show-all-children only for current frame

Modified:
   clfswm/src/clfswm-circulate-mode.lisp

Modified: clfswm/src/clfswm-circulate-mode.lisp
==============================================================================
--- clfswm/src/clfswm-circulate-mode.lisp	(original)
+++ clfswm/src/clfswm-circulate-mode.lisp	Mon Oct  4 16:41:15 2010
@@ -112,7 +112,7 @@
 	(with-slots (child) selected-child
 	  (let ((elem (first (last child))))
 	    (setf child (nconc (list elem) (child-remove elem child)))
-	    (show-all-children)
+	    (show-all-children selected-child)
 	    (draw-circulate-mode-window)))))))