diff options
| -rw-r--r-- | src/wheelwork.lisp | 4 |
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)) |