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 ++-
 src/events/listener.lisp      | 6 ------
 2 files changed, 2 insertions(+), 7 deletions(-)

(limited to 'src/events')

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)
diff --git a/src/events/listener.lisp b/src/events/listener.lisp
index 366465a..e66afe2 100644
--- a/src/events/listener.lisp
+++ b/src/events/listener.lisp
@@ -12,9 +12,6 @@
     focus
     blur
     perframe
-    after-added
-    before-added
-    before-dropped
     :r :with :type (or null event-handler) :std nil)
    (keydown-table
     keyup-table
@@ -25,9 +22,6 @@
     focus-table
     blur-table
     perframe-table
-    after-added-table
-    before-added-table
-    before-dropped-table
     :static
     :std (make-hash-table :synchronized t)
     :doc "Keyed by DISPLAY-UNIT instance, holds an EVENT-HANDLER if
-- 
cgit v1.2.3