From 228eebe0a022fac2159c53f504fae8628268b9b9 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sat, 23 Jul 2022 16:44:17 -0500
Subject: [remove] spurious refs to display tree events; [tweak] menu focus

I may add these display tree events back in
---
 src/events/event-handler.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/events/event-handler.lisp')

diff --git a/src/events/event-handler.lisp b/src/events/event-handler.lisp
index a88f63d..e9a26cd 100644
--- a/src/events/event-handler.lisp
+++ b/src/events/event-handler.lisp
@@ -262,6 +262,7 @@ can be redefined using this form to support interactive development."
 "
   `(make-instance
     'event-handler
+    :tag ,(get-tag-from-handler-body body)
     :event-type 'wheelwork::mousewheel
     :handler-function (lambda
                           (,(intern (symbol-name target))
@@ -273,7 +274,7 @@ can be redefined using this form to support interactive development."
                                             ,(intern (symbol-name horiz))
                                             ,(intern (symbol-name vert))
                                             ,(intern (symbol-name dir))))
-                        ,@body)))
+                        ,@(get-body-from-handler-body body))))
 
 (defmacro on-blur
     ((&optional (target 'target)) &body body)
-- 
cgit v1.2.3