From 259b8df3630487055f5d3e1bc98d245973b3a95e Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 28 Jul 2022 08:55:25 -0500 Subject: [bugfix] in calculation of yrel for mousemotion events --- src/wheelwork.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src') 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)) -- cgit v1.2.3