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

[Philippe Brochard]

Author: pbrochard
Date: Sat Sep 11 17:48:31 2010
New Revision: 321

Log:
set-globally-hide-unmanaged-window, set-globally-show-unmanaged-window: New functions and menu entry.

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

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sat Sep 11 17:48:31 2010
@@ -3,6 +3,9 @@
 	* src/clfswm-util.lisp (set-hide-unmanaged-window)
 	(set-show-unmanaged-window, set-default-hide-unmanaged-window):
 	New functions and menu entry.
+	(set-globally-hide-unmanaged-window)
+	(set-globally-show-unmanaged-window): New functions and menu
+	entry.
 
 	* src/clfswm-internal.lisp (hide-unmanager-window-p): New
 	function.

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Sat Sep 11 17:48:31 2010
@@ -1366,4 +1366,12 @@
     (setf (frame-data-slot *current-child* :unmanaged-window-action) nil)
     (leave-second-mode)))
 
+(defun set-globally-hide-unmanaged-window ()
+  "Hide unmanaged windows by default. This is overriden by functions above"
+  (setf *hide-unmanaged-window* t)
+  (leave-second-mode))
 
+(defun set-globally-show-unmanaged-window ()
+  "Show unmanaged windows by default. This is overriden by functions above"
+  (setf *hide-unmanaged-window* nil)
+  (leave-second-mode))

Modified: clfswm/src/menu-def.lisp
==============================================================================
--- clfswm/src/menu-def.lisp	(original)
+++ clfswm/src/menu-def.lisp	Sat Sep 11 17:48:31 2010
@@ -159,6 +159,8 @@
 (add-menu-key 'frame-unmanaged-window-menu "s" 'set-show-unmanaged-window)
 (add-menu-key 'frame-unmanaged-window-menu "h" 'set-hide-unmanaged-window)
 (add-menu-key 'frame-unmanaged-window-menu "d" 'set-default-hide-unmanaged-window)
+(add-menu-key 'frame-unmanaged-window-menu "w" 'set-globally-show-unmanaged-window)
+(add-menu-key 'frame-unmanaged-window-menu "i" 'set-globally-hide-unmanaged-window)
 
 
 (add-menu-key 'frame-miscellaneous-menu "s" 'show-all-frames-info)