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

[Philippe Brochard]

Author: pbrochard
Date: Tue Mar  8 17:31:48 2011
New Revision: 427

Log:
src/clfswm-util.lisp (cut-current-child, remove-current-child, delete-current-child): Hide the current child before doing the action.

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

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Tue Mar  8 17:31:48 2011
@@ -1,5 +1,9 @@
 2011-03-08  Philippe Brochard  <pbrochard at 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.

Modified: clfswm/src/clfswm-internal.lisp
==============================================================================
--- clfswm/src/clfswm-internal.lisp	(original)
+++ clfswm/src/clfswm-internal.lisp	Tue Mar  8 17:31:48 2011
@@ -865,7 +865,7 @@
   (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

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Tue Mar  8 17:31:48 2011
@@ -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))