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

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Sun Sep 28 17:02:28 2008
New Revision: 174

Modified:
   clfswm/TODO
   clfswm/src/clfswm-second-mode.lisp
Log:
TODO update

Modified: clfswm/TODO
==============================================================================
--- clfswm/TODO	(original)
+++ clfswm/TODO	Sun Sep 28 17:02:28 2008
@@ -7,9 +7,7 @@
 ===============
 Should handle these soon.
 
-
-MAYBE
-=====
+- Handle numlock properly (add :mod-2 in bindings if necessary)
 
 - Show config -> list and display documentation for all tweakable global variables. [Philippe]
    TODO :
@@ -19,6 +17,18 @@
       ...
       ;;;; AUTO-CONFIG End : You can add your configurations below this line.
 
+- Remote access to the clfswm REPL [Philippe]
+   Protocol:  Server: Ask: random-number
+              Client: Reply: associated random-number
+              Server: Ok
+              Client: a lisp form (+ 2 2)
+              ...
+   Random-number at compile time: '((rnd-1-server rnd-1-client) (rnd-1-server rnd-1-client) (rnd-1-server rnd-1-client) ...)
+
+
+
+MAYBE
+=====
 
 - cd/pwd a la shell to navigate throw frames. [Philippe]
 
@@ -40,10 +50,3 @@
 
 - Mouse support in menu?
 
-- Remote access to the clfswm REPL [Philippe]
-   Protocol:  Server: Ask: random-number
-              Client: Reply: associated random-number
-              Server: Ok
-              Client: a lisp form (+ 2 2)
-              ...
-   Random-number a compile time: '((rnd-1-server rnd-1-client) (rnd-1-server rnd-1-client) (rnd-1-server rnd-1-client) ...)

Modified: clfswm/src/clfswm-second-mode.lisp
==============================================================================
--- clfswm/src/clfswm-second-mode.lisp	(original)
+++ clfswm/src/clfswm-second-mode.lisp	Sun Sep 28 17:02:28 2008
@@ -219,6 +219,8 @@
   "Leave second mode"
   (cond (*in-second-mode*
 	 (banish-pointer)
+	 (setf *in-second-mode* nil)
 	 (throw 'exit-second-loop nil))
-	(t (show-all-children))))
+	(t (setf *in-second-mode* nil)
+	   (show-all-children))))