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

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Wed Apr  9 02:16:42 2008
New Revision: 72

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-internal.lisp
   clfswm/src/clfswm-nw-hooks.lisp
Log:
switch-to-root-frame: show later - new key parameter to have less flickering.


Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Wed Apr  9 02:16:42 2008
@@ -1,3 +1,8 @@
+2008-04-09  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-internal.lisp (switch-to-root-frame): show later -
+	new key parameter to have less flickering.
+
 2008-04-07  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/bindings-second-mode.lisp (frame-layout-once-menu): Set the

Modified: clfswm/src/clfswm-internal.lisp
==============================================================================
--- clfswm/src/clfswm-internal.lisp	(original)
+++ clfswm/src/clfswm-internal.lisp	Wed Apr  9 02:16:42 2008
@@ -593,18 +593,20 @@
   (show-all-children))
 
 
-(defun switch-to-root-frame ()
+(defun switch-to-root-frame (&key (show-later nil))
   "Switch to the root frame"
   (hide-all *current-root*)
   (setf *current-root* *root-frame*)
-  (show-all-children))
+  (unless show-later
+    (show-all-children)))
 
-(defun switch-and-select-root-frame ()
+(defun switch-and-select-root-frame (&key (show-later nil))
   "Switch and select the root frame"
   (hide-all *current-root*)
   (setf *current-root* *root-frame*)
   (setf *current-child* *current-root*)
-  (show-all-children))
+  (unless show-later
+    (show-all-children)))
 
 
 (defun toggle-show-root-frame ()

Modified: clfswm/src/clfswm-nw-hooks.lisp
==============================================================================
--- clfswm/src/clfswm-nw-hooks.lisp	(original)
+++ clfswm/src/clfswm-nw-hooks.lisp	Wed Apr  9 02:16:42 2008
@@ -119,7 +119,7 @@
   (let ((new-frame (create-frame)))
     (pushnew new-frame (frame-child *root-frame*))
     (pushnew window (frame-child new-frame))
-    (switch-to-root-frame)
+    (switch-to-root-frame :show-later t)
     (setf *current-child* *current-root*)
     (set-tile-space-layout-once)
     (setf *current-child* new-frame)