[clfswm-cvs] CVS clfswm

[pbrochard]

Update of /project/clfswm/cvsroot/clfswm
In directory clnet:/tmp/cvs-serv3169

Modified Files:
	clfswm-internal.lisp clfswm-second-mode.lisp clfswm.lisp 
Log Message:
Don't start second mode program any times

--- /project/clfswm/cvsroot/clfswm/clfswm-internal.lisp	2007/12/31 16:32:41	1.8
+++ /project/clfswm/cvsroot/clfswm/clfswm-internal.lisp	2007/12/31 16:38:36	1.9
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Sun Dec 30 22:50:43 2007
+;;; #Date#: Mon Dec 31 17:36:46 2007
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: Main functions
@@ -305,6 +305,7 @@
 					 (:maxsize 1)
 					 (:transient 1)
 					 (t 0)))
+  ;;(dbg (wm-name window) (window-type window))
   (case (window-type window)
     (:normal (adapt-window-to-group window (current-group)))
     (t (multiple-value-bind (x y width height)
--- /project/clfswm/cvsroot/clfswm/clfswm-second-mode.lisp	2007/12/31 16:32:41	1.7
+++ /project/clfswm/cvsroot/clfswm/clfswm-second-mode.lisp	2007/12/31 16:38:36	1.8
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Mon Dec 31 00:03:50 2007
+;;; #Date#: Mon Dec 31 17:37:12 2007
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: Second mode functions
@@ -201,7 +201,8 @@
   (show-all-group (current-workspace))
   (wait-no-key-or-button-press)
   (when *second-mode-program*
-    (do-shell *second-mode-program*)))
+    (do-shell *second-mode-program*)
+    (setf *second-mode-program* nil)))
 
 
 
--- /project/clfswm/cvsroot/clfswm/clfswm.lisp	2007/12/31 16:32:41	1.7
+++ /project/clfswm/cvsroot/clfswm/clfswm.lisp	2007/12/31 16:38:36	1.8
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Mon Dec 31 00:10:03 2007
+;;; #Date#: Mon Dec 31 17:34:22 2007
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: Main functions