diff options
| author | Colin Okay <okay@toyful.space> | 2022-07-23 16:44:17 -0500 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-07-23 16:44:17 -0500 |
| commit | 228eebe0a022fac2159c53f504fae8628268b9b9 (patch) | |
| tree | 34dbd48f80f8833597adb96ba9073b05354cd286 /src/events | |
| parent | 8f36ccc37a52557e6b41515e510033a61998ef73 (diff) | |
[remove] spurious refs to display tree events; [tweak] menu focus
I may add these display tree events back in
Diffstat (limited to 'src/events')
| -rw-r--r-- | src/events/event-handler.lisp | 3 | ||||
| -rw-r--r-- | src/events/listener.lisp | 6 |
2 files changed, 2 insertions, 7 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) 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 |