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

[Philippe Brochard]

Author: pbrochard
Date: Mon Mar 21 16:16:27 2011
New Revision: 438

Log:
src/clfswm-internal.lisp (x-px->fl, y-px->fl): Takes care of border size.

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

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Mon Mar 21 16:16:27 2011
@@ -1,3 +1,8 @@
+2011-03-21  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-internal.lisp (x-px->fl, y-px->fl): Takes care of
+	border size.
+
 2011-03-20  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm-info.lisp (show-config-variable): call

Modified: clfswm/src/clfswm-internal.lisp
==============================================================================
--- clfswm/src/clfswm-internal.lisp	(original)
+++ clfswm/src/clfswm-internal.lisp	Mon Mar 21 16:16:27 2011
@@ -48,11 +48,11 @@
 ;;; Pixel -> Float conversion
 (defun x-px->fl (x parent)
   "Convert pixel X coordinate to float"
-  (/ (- x (frame-rx parent)) (frame-rw parent)))
+  (/ (- x (frame-rx parent) *border-size*) (frame-rw parent)))
 
 (defun y-px->fl (y parent)
   "Convert pixel Y coordinate to float"
-  (/ (- y (frame-ry parent)) (frame-rh parent)))
+  (/ (- y (frame-ry parent) *border-size*) (frame-rh parent)))
 
 (defun w-px->fl (w parent)
   "Convert pixel Width coordinate to float"