From 1737ca0627d5fb75a4e74c8ee0562f734ce34ebf Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Fri, 24 Jun 2022 08:18:49 -0500
Subject: [add] handling of mousewheel events

---
 examples/02-moving-bitmp.lisp | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'examples')

diff --git a/examples/02-moving-bitmp.lisp b/examples/02-moving-bitmp.lisp
index a132e9f..153ca1d 100644
--- a/examples/02-moving-bitmp.lisp
+++ b/examples/02-moving-bitmp.lisp
@@ -75,6 +75,10 @@
   (ww::on-blur ()
     (format t "~a lost focus~%" target)))
 
+(ww::defhandler wheelie
+    (ww::on-mousewheel ()
+      (print (list :mousewheel horiz vert dir))))
+
 (defmethod ww::boot ((app bitmap-display))
   (let ((bm
           (make-instance 'ww::bitmap
@@ -95,6 +99,7 @@
     (ww::set-handler bm2 #'thing-clicked)
     (ww::set-handler bm2 #'look-at-me )
     (ww::set-handler bm2 #'look-away)
+    (ww::set-handler bm2 #'wheelie)
     (ww::add-unit app bm2)))
 
 
-- 
cgit v1.2.3