From b07a1b84e04bad8dd093342b4ac59de455f19b9c Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 13 May 2021 21:01:32 -0400 Subject: Add mouse wheel event handler. --- chickadee.scm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'chickadee.scm') diff --git a/chickadee.scm b/chickadee.scm index a8251f3..989056b 100644 --- a/chickadee.scm +++ b/chickadee.scm @@ -258,6 +258,7 @@ border is disabled, otherwise it is enabled.") (mouse-press (const #t)) (mouse-release (const #t)) (mouse-move (const #t)) + (mouse-wheel (const #t)) (controller-add (const #t)) (controller-remove (const #t)) (controller-press (const #t)) @@ -325,6 +326,9 @@ border is disabled, otherwise it is enabled.") (mouse-motion-event-x-rel event) (- (mouse-motion-event-y-rel event)) (mouse-motion-event-buttons event))) + ((mouse-wheel-event? event) + (mouse-wheel (mouse-wheel-event-x event) + (mouse-wheel-event-y event))) ((and (controller-device-event? event) (eq? (controller-device-event-action event) 'added)) (controller-add (add-controller -- cgit v1.2.3