From 622add17d99c909b582b175f5e8378f9888cca8a Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Fri, 24 Jun 2022 08:39:43 -0500
Subject: [modify] mousedown events default to the app itself

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

(limited to 'examples/02-moving-bitmp.lisp')

diff --git a/examples/02-moving-bitmp.lisp b/examples/02-moving-bitmp.lisp
index 153ca1d..ca32b44 100644
--- a/examples/02-moving-bitmp.lisp
+++ b/examples/02-moving-bitmp.lisp
@@ -86,6 +86,9 @@
         (bm2
           (make-instance 'ww::bitmap
                          :texture (ww::get-asset "RootBear.png"))))
+
+    (ww::set-handler app #'wheelie)
+
     ;; first 
     (ww::refocus-on bm)
     (ww::set-handler bm #'animate-move-thing )
-- 
cgit v1.2.3