From 7aeb7f5c15afb9e712b04e9450a9c59b7338a6c4 Mon Sep 17 00:00:00 2001
From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Tue, 8 Mar 2011 23:14:49 +0100
Subject: [PATCH] src/clfswm-util.lisp (cut-current-child,
 remove-current-child, delete-current-child): Hide the current child before
 doing the action.

---
 ChangeLog                | 4 ++++
 src/clfswm-internal.lisp | 2 +-
 src/clfswm-util.lisp     | 3 +++
 3 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 2293c13..8270e08 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2011-03-08  Philippe Brochard  <pbrochard@common-lisp.net>
 
+	* src/clfswm-util.lisp (cut-current-child, remove-current-child)
+	(delete-current-child): Hide the current child before doing the
+	action.
+
 	* src/clfswm-internal.lisp (show-all-children): Hide windows not
 	in the current root before displaying those in current root.
 	Remove all hide-all unnecessary calls.
diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index 3ada7e8..fe8a605 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -865,7 +865,7 @@ For window: set current child to window or its parent according to window-parent
   (awhen (find-parent-frame *current-root*)
     (when (frame-p it)
       (setf *current-root* it)))
-  (show-all-children t))
+  (show-all-children))
 
 
 ;;; Other actions (select-next-child, select-next-brother...) are in
diff --git a/src/clfswm-util.lisp b/src/clfswm-util.lisp
index 0e9be80..462478f 100644
--- a/src/clfswm-util.lisp
+++ b/src/clfswm-util.lisp
@@ -219,6 +219,7 @@
 
 (defun cut-current-child ()
   "Cut the current child to the selection"
+  (hide-all *current-child*)
   (copy-current-child)
   (remove-child-in-frame *current-child* (find-parent-frame *current-child* *current-root*))
   (setf *current-child* *current-root*)
@@ -226,6 +227,7 @@
 
 (defun remove-current-child ()
   "Remove the current child from its parent frame"
+  (hide-all *current-child*)
   (remove-child-in-frame *current-child* (find-parent-frame *current-child* *current-root*))
   (setf *current-child* *current-root*)
   (show-all-children t)
@@ -233,6 +235,7 @@
 
 (defun delete-current-child ()
   "Delete the current child and its children in all frames"
+  (hide-all *current-child*)
   (delete-child-and-children-in-all-frames *current-child*)
   (show-all-children t)
   (leave-second-mode))
-- 
2.11.4.GIT