[clfswm-cvs] r448 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Mon Apr 18 08:19:32 2011
New Revision: 448

Log:
	* src/clfswm-pack.lisp (implode-frame): Hide child before removing it

Modified:
   clfswm/src/clfswm-pack.lisp

Modified: clfswm/src/clfswm-pack.lisp
==============================================================================
--- clfswm/src/clfswm-pack.lisp	(original)
+++ clfswm/src/clfswm-pack.lisp	Mon Apr 18 08:19:32 2011
@@ -218,6 +218,7 @@
       (when (frame-p child)
         (dolist (subchild (frame-child child))
           (setf (frame-child frame) (append (frame-child frame) (list subchild))))
+        (hide-child child)
         (remove-child-in-frame child frame)))))
 
 (defun implode-current-frame ()