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

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Tue May 13 16:50:23 2008
New Revision: 125

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-util.lisp
Log:
with-movement: Display frame info for all frames in current root.

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Tue May 13 16:50:23 2008
@@ -1,3 +1,8 @@
+2008-05-13  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-util.lisp (with-movement): Display frame info for all
+	frames in current root.
+
 2008-05-12  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/*.lisp: Rename 'brother' frames to 'sister' frames.

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Tue May 13 16:50:23 2008
@@ -677,6 +677,7 @@
   `(when (frame-p *current-child*)
      , at body
      (show-all-children)
+     (display-all-frame-info)
      (draw-second-mode-window)
      (open-menu (find-menu 'frame-movement-menu))))