aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/interactive/interactive.lisp
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-07-22 11:58:16 -0500
committerColin Okay <colin@cicadas.surf>2022-07-22 11:58:16 -0500
commit00841605110612f6e7f3bbfc054ceff980bf25be (patch)
tree1f16b86d5c555eea22e60cb2d36f88682bd9023b /src/interactive/interactive.lisp
parent6d9b8b48423dba99ecdba004f260c30e6717b6a6 (diff)
[version] [refactor] [redesign] removed containers
Diffstat (limited to 'src/interactive/interactive.lisp')
-rw-r--r--src/interactive/interactive.lisp15
1 files changed, 0 insertions, 15 deletions
diff --git a/src/interactive/interactive.lisp b/src/interactive/interactive.lisp
index 83910c7..6152c3e 100644
--- a/src/interactive/interactive.lisp
+++ b/src/interactive/interactive.lisp
@@ -42,18 +42,3 @@ ON-* Macros."
(remhash interactive (listener-table-for (listener interactive) event-type))))))
-(defmethod drop-unit :before ((unit interactive))
- (when (unit-container unit)
- (when-let (handlers (get-handlers-for unit 'before-dropped))
- (dolist (handler handlers)
- (funcall handler unit)))))
-
-(defmethod add-unit :before ((container container) (unit interactive))
- (when-let (handlers (get-handlers-for unit 'before-added))
- (dolist (handler handlers)
- (funcall handler container unit))))
-
-(defmethod add-unit :after ((container container) (unit interactive))
- (when-let (handlers (get-handlers-for unit 'after-added))
- (dolist (handler handlers)
- (funcall handler container unit))))