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 ++++ doc/api.texi | 14 ++++++++++++++ 2 files changed, 18 insertions(+) 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 diff --git a/doc/api.texi b/doc/api.texi index 8a06690..96ac394 100644 --- a/doc/api.texi +++ b/doc/api.texi @@ -171,6 +171,20 @@ mouse was moved. @end enumerate +@item +@var{mouse-wheel}: Called with two arguments when the mouse wheel is +scrolled: + +@enumerate + +@item +@var{x}: The scroll amount along the X axis. + +@item +@var{y}: The scroll amount along the Y axis. + +@end enumerate + @item @var{controller-add}: Called with a single argument, an SDL game controller object, when a game controller is connected. -- cgit v1.2.3