From 00841605110612f6e7f3bbfc054ceff980bf25be Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 22 Jul 2022 11:58:16 -0500 Subject: [version] [refactor] [redesign] removed containers --- src/interactive/interactive.lisp | 15 --------------- 1 file changed, 15 deletions(-) (limited to 'src/interactive/interactive.lisp') 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)))) -- cgit v1.2.3