diff options
| author | David Thompson <dthompson2@worcester.edu> | 2021-05-13 21:01:32 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2021-05-13 21:01:32 -0400 |
| commit | b07a1b84e04bad8dd093342b4ac59de455f19b9c (patch) | |
| tree | 11b0549f53ec60d0d19113ee2e19ea504fb410ec /chickadee.scm | |
| parent | 419e220eb5dd9391b02faad8c25f5f5e28079f5d (diff) | |
Add mouse wheel event handler.
Diffstat (limited to 'chickadee.scm')
| -rw-r--r-- | chickadee.scm | 4 |
1 files changed, 4 insertions, 0 deletions
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 |