[clfswm-cvs] r327 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Fri Sep 24 17:56:27 2010
New Revision: 327

Log:
src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left, speed-mouse-right, speed-mouse-up, speed-mouse-down, speed-mouse-undo, speed-mouse-first-history): New functions to quickly move the mouse. Implemented for the second mode.

Modified:
   clfswm/src/clfswm-util.lisp

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Fri Sep 24 17:56:27 2010
@@ -1378,14 +1378,14 @@
 
 
 ;;; Speed mouse movement
-;;(let (minx miny maxx maxy history lx ly)
-;;  (labels ((middle (x1 x2)
-;;	     (round (/ (+ x1 x2) 2)))
-;;	   (reset-if-moved (x y)
-;;	     (when (or (/= x (or lx x)) (/= y (or ly y)))
-;;	       (speed-mouse-reset)))
-;;	   (add-in-history (x y)
-;;	     (push (list x y) history)))
+(let (minx miny maxx maxy history lx ly)
+  (labels ((middle (x1 x2)
+	     (round (/ (+ x1 x2) 2)))
+	   (reset-if-moved (x y)
+	     (when (or (/= x (or lx x)) (/= y (or ly y)))
+	       (speed-mouse-reset)))
+	   (add-in-history (x y)
+	     (push (list x y) history)))
     (defun speed-mouse-reset ()
       (setf minx nil miny nil maxx nil maxy nil history nil lx nil ly nil))
     (defun speed-mouse-left ()