FranzCross,mixin: fix mix-context-event selection on Windows

Bogdanp · Oct 13, 2023 · 784f779 · 784f779
1 parent f11ccb1
commit 784f779
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/FranzCross/mixin.rkt b/FranzCross/mixin.rkt
@@ -100,7 +100,10 @@
                  (send receiver get-height)
                  (send receiver number-of-visible-items)))
               (define item-index
-                (let ([index (quotient (send event get-y) item-height)])
+                (let* ([index (quotient (send event get-y) item-height)]
+                       [index (case (system-type 'os)
+                                [(macosx) index] ;; the first non-header row has y=0
+                                [else (sub1 index)])])
                   (and (< index (send receiver get-number)) index)))
               (begin0 item-index
                 (when item-index