From 84cfbd5c52d035a166bcb8d8ce9bd566b01e4513 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Mon, 18 Jul 2022 10:21:08 -0500
Subject: [add] mouse event bubbling; [example] click-and-drag to 01

---
 src/application.lisp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/application.lisp')

diff --git a/src/application.lisp b/src/application.lisp
index e9a41dc..ef5e92f 100644
--- a/src/application.lisp
+++ b/src/application.lisp
@@ -22,7 +22,13 @@
     :std t
     :doc "When T, clicking on a visible object will set the
     application focus to that object.")
-   (focus last-motion-target :with :a)
+   (mouse-button-events-bubble-p
+    mouse-motion-events-bubble-p
+    :std nil
+    :doc "determines whether the search for event handlers stops at
+    the first visible unit under the xy position of the mouse or
+    not. ")
+  (focus last-motion-target :with :a)
    (fps :std 30 :doc "Frames Per Second")
    (frame-wait :r))
   (:documentation "The application contains the information and data
-- 
cgit v1.2.3