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

[Philippe Brochard]

Author: pbrochard
Date: Sat May  9 18:02:12 2009
New Revision: 224

Log:
frame-toggle-maximize: Redisplay only the parent frame of the  current frame.

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

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sat May  9 18:02:12 2009
@@ -1,3 +1,8 @@
+2009-05-10  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-util.lisp (frame-toggle-maximize): Redisplay only the
+	parent frame of the  current frame.
+
 2009-05-09  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm-util.lisp (frame-toggle-maximize): New function:

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Sat May  9 18:02:12 2009
@@ -228,7 +228,8 @@
 	    (setf (frame-data-slot *current-child* :unmaximized-coords)
 		  (list x y w h)
 		  x 0 y 0 w 1 h 1))))
-    (show-all-children *current-root*)))
+    (show-all-children (find-parent-frame *current-child*))
+    (leave-second-mode)))