[add] mouse event bubbling; [example] click-and-drag to 01

1 files changed, 7 insertions, 1 deletions

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