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

[Philippe Brochard]

Author: pbrochard
Date: Sat Sep 25 08:18:55 2010
New Revision: 328

Log:
src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use screen size instead of hardcoded test coordinates.

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-util.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sat Sep 25 08:18:55 2010
@@ -1,3 +1,8 @@
+2010-09-25  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-util.lisp (speed-mouse-right, speed-mouse-down): Use
+	screen size instead of hardcoded test coordinates.
+
 2010-09-24  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm-util.lisp (speed-mouse-reset, speed-mouse-left)

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Sat Sep 25 08:18:55 2010
@@ -1400,7 +1400,7 @@
 	(reset-if-moved x y)
 	(setf minx x)
 	(add-in-history x y)
-	(setf lx (middle minx (or maxx 1280)))
+	(setf lx (middle minx (or maxx (xlib:screen-width *screen*))))
 	(xlib:warp-pointer *root* lx y)))
     (defun speed-mouse-up ()
       (with-x-pointer
@@ -1414,7 +1414,7 @@
 	(reset-if-moved x y)
 	(setf miny y)
 	(add-in-history x y)
-	(setf ly (middle miny (or maxy 800)))
+	(setf ly (middle miny (or maxy (xlib:screen-height *screen*))))
 	(xlib:warp-pointer *root* x ly)))
     (defun speed-mouse-undo ()
       (when history