aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/wheelwork.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/wheelwork.lisp')
-rw-r--r--src/wheelwork.lisp4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/wheelwork.lisp b/src/wheelwork.lisp
index ab432d5..da432ba 100644
--- a/src/wheelwork.lisp
+++ b/src/wheelwork.lisp
@@ -174,7 +174,9 @@ give focus to whatever was clicked."
(defun eventloop-mousemotion (app wx wy wxrel wyrel state)
(when (should-listen-for-p 'mousemotion app)
(destructuring-bind (x y) (screen-to-world wx wy)
- (destructuring-bind (xrel yrel) (screen-to-world wxrel wyrel)
+ (let* ((scale (application-scale app))
+ (xrel (/ wxrel scale))
+ (yrel (* -1 (/ wyrel scale))))
(let ((*event-still-bubbling-p*
(mouse-motion-events-bubble-p app)))
(loop for target in (mouse-event-targets app x y (mouse-motion-events-bubble-p app))