From 92ee3e1c15a7937c62a0a100eedeb8b5d2928365 Mon Sep 17 00:00:00 2001
From: Bogdan Popa <bogdan@defn.io>
Date: Fri, 13 Oct 2023 09:18:25 +0300
Subject: [PATCH] FranzCross,hacks: fixup make-mouse-event-positions-absolute

---
 FranzCross/hacks.rkt | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

diff --git a/FranzCross/hacks.rkt b/FranzCross/hacks.rkt
index 704e1cf..e97123f 100644
--- a/FranzCross/hacks.rkt
+++ b/FranzCross/hacks.rkt
@@ -28,14 +28,20 @@
 ;; y positions to be absolute relative to the top-level window's
 ;; origin.
 (define (make-mouse-event-positions-absolute window event)
-  (define-values (x-pos y-pos)
-    (let loop ([x 0] [y 0] [w window])
+  (define root
+    (let loop ([w window])
       (define w-parent
         (send w get-parent))
-      (if w-parent
-          (loop (+ x (send w get-x))
-                (+ y (send w get-y))
-                w-parent)
-          (values x y))))
-  (send event set-x (+ x-pos (send event get-x)))
-  (send event set-y (+ y-pos (send event get-y))))
+      (if w-parent (loop w-parent) w)))
+  (define-values (screen-x screen-y)
+    (send window
+          client->screen
+          (send event get-x)
+          (send event get-y)))
+  (define-values (root-client-x root-client-y)
+    (send root
+          screen->client
+          screen-x
+          screen-y))
+  (send event set-x root-client-x)
+  (send event set-y root-client-y))