From 784f7793d7ea7a5013cb5628b7cdabb8f011e593 Mon Sep 17 00:00:00 2001 From: Bogdan Popa Date: Fri, 13 Oct 2023 14:41:17 +0300 Subject: [PATCH] FranzCross,mixin: fix mix-context-event selection on Windows --- FranzCross/mixin.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/FranzCross/mixin.rkt b/FranzCross/mixin.rkt index cd0d833..9915314 100644 --- 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