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

[Philippe Brochard]

Author: pbrochard
Date: Tue Dec  7 17:20:48 2010
New Revision: 391

Log:
src/clfswm-second-mode.lisp (*second-mode-leave-function*): New variable bound to a function executed (when not null) on second mode leaving.

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-second-mode.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Tue Dec  7 17:20:48 2010
@@ -1,3 +1,9 @@
+2010-12-07  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-second-mode.lisp (*second-mode-leave-function*): New
+	variable bound to a function executed (when not null) on second
+	mode leaving.
+
 2010-11-14  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm-util.lisp (find-child-under-mouse): Do not find

Modified: clfswm/src/clfswm-second-mode.lisp
==============================================================================
--- clfswm/src/clfswm-second-mode.lisp	(original)
+++ clfswm/src/clfswm-second-mode.lisp	Tue Dec  7 17:20:48 2010
@@ -32,6 +32,9 @@
 (defparameter *second-mode-program* nil
   "Execute the program string if not nil")
 
+(defparameter *second-mode-leave-function* nil
+  "Execute the function if not nil")
+
 
 (defun draw-second-mode-window ()
   (raise-window *sm-window*)
@@ -138,6 +141,9 @@
   (when *second-mode-program*
     (do-shell *second-mode-program*)
     (setf *second-mode-program* nil))
+  (when *second-mode-leave-function*
+    (funcall *second-mode-leave-function*)
+    (setf *second-mode-leave-function* nil))
   (setf *in-second-mode* nil))
 
 (defun second-key-mode ()