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

[Philippe Brochard]

Author: pbrochard
Date: Sat May  7 04:04:34 2011
New Revision: 457

Log:
TODO update

Modified:
   clfswm/TODO
   clfswm/src/bindings-second-mode.lisp
   clfswm/src/clfswm-util.lisp

Modified: clfswm/TODO
==============================================================================
--- clfswm/TODO	(original)
+++ clfswm/TODO	Sat May  7 04:04:34 2011
@@ -7,7 +7,7 @@
 ===============
 Should handle these soon.
 
--> Nothing here yet.
+Stop all pending actions
 
 
 FOR THE NEXT RELEASE

Modified: clfswm/src/bindings-second-mode.lisp
==============================================================================
--- clfswm/src/bindings-second-mode.lisp	(original)
+++ clfswm/src/bindings-second-mode.lisp	Sat May  7 04:04:34 2011
@@ -93,7 +93,7 @@
   (define-second-key ("l") 'open-frame-fill-menu)
   (define-second-key ("r") 'open-frame-resize-menu)
   (define-second-key ("x") 'update-layout-managed-children-position)
-  ;;(define-second-key (#\g :control) 'stop-all-pending-actions)
+  (define-second-key (#\g :control) 'stop-all-pending-actions)
   (define-second-key ("i") 'identify-key)
   (define-second-key ("colon") 'eval-from-query-string)
   (define-second-key ("exclam") 'run-program-from-query-string)

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Sat May  7 04:04:34 2011
@@ -71,6 +71,12 @@
 	(char= (char rep 0) #\Y))))
 
 
+;;(error "stop-all-pending-actions: TODO")
+(defun stop-all-pending-actions ()
+  "Stop all pending actions"
+  ())
+  ;;(error "TODO"))
+
 
 
 (defun rename-current-child ()