aboutsummaryrefslogtreecommitdiffhomepage
path: root/examples/02-moving-bitmp.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'examples/02-moving-bitmp.lisp')
-rw-r--r--examples/02-moving-bitmp.lisp5
1 files changed, 5 insertions, 0 deletions
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)))