[remove] spurious refs to display tree events; [tweak] menu focus

I may add these display tree events back in

1 files changed, 2 insertions, 1 deletions

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)