From 7f408ec2e11bd161befe638798280eba9b87b1c8 Mon Sep 17 00:00:00 2001 From: Bogdan Popa Date: Fri, 13 Oct 2023 16:05:24 +0300 Subject: [PATCH] FranzCross,mixin: fixup mix-context-event on linux --- FranzCross/mixin.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/FranzCross/mixin.rkt b/FranzCross/mixin.rkt index 69a4eeb..5e6e463 100644 --- a/FranzCross/mixin.rkt +++ b/FranzCross/mixin.rkt @@ -98,17 +98,19 @@ (define item-height (quotient (send receiver get-height) - (add1 (send receiver number-of-visible-items)))) + (case (system-type 'os) + [(unix) (send receiver number-of-visible-items)] + [else (add1 (send receiver number-of-visible-items))]))) (define y-pos (let ([y (send event get-y)]) (case (system-type 'os) - [(windows) ;; does not include scroll offset + [(unix windows) ;; does not include scroll offset (+ y (* item-height (send receiver get-first-visible-item)))] [else y]))) (define item-index (let* ([index (quotient y-pos item-height)] [index (case (system-type 'os) - [(macosx) index] ;; the first non-header row has y=0 + [(macosx unix) index] ;; the first non-header row has y=0 [else (sub1 index)])]) (and (< index (send receiver get-number)) index))) (begin0 item-index