1 files changed, 0 insertions, 65 deletions
diff --git a/src/events/event-handler.lisp b/src/events/event-handler.lisp
index a7f1b1b..9d48aea 100644
--- a/src/events/event-handler.lisp
+++ b/src/events/event-handler.lisp
@@ -299,68 +299,3 @@ fires when the FOCUS slot of the current APPLICATION instance is changed.
                         (declare
                          (ignorable ,(intern (symbol-name target))))
                         ,@body)))
-
-(defmacro on-before-dropped
-    ((&optional (target 'target)) &body body)
-  "Creates a handler for BEFORE-DROPPED events, which fire before a
-  unit is removed from its container.
-
- All variable arguments supplied to this handler form are
- optional. You may supply your own variables to use in your BODY or
- you may just refer to the defaults - they will be interned in the
- appropriate package.
-
-"
-  `(make-instance
-    'event-handler
-    :event-type 'wheelwork::before-dropped
-    :handler-function (lambda
-                          (,(intern (symbol-name target)))
-                        (declare
-                         (ignorable ,(intern (symbol-name target))))
-                        ,@body)))
-
-(defmacro on-before-added
-    ((&optional  (target 'target) (container 'container)) &body body)
-  "Creates a handler for BEFORE-ADDED events, which fire before a unit
-  TARGET is added to CONTAINER.
-
- All variable arguments supplied to this handler form are
- optional. You may supply your own variables to use in your BODY or
- you may just refer to the defaults - they will be interned in the
- appropriate package.
-"
-  `(make-instance
-    'event-handler
-    :event-type 'wheelwork::before-added
-    :handler-function (lambda
-                          (,(intern (symbol-name container))
-                           ,(intern (symbol-name target)))
-                        (declare
-                         (ignorable
-                          ,(intern (symbol-name container))
-                          ,(intern (symbol-name target))))
-                        ,@body)))
-
-
-(defmacro on-after-added
-    ((&optional  (target 'target) (container 'container)) &body body)
-  "Creates a handler for AFTER-ADDED events, which fire after a unit
-  is added to a container.
-
- All variable arguments supplied to this handler form are
- optional. You may supply your own variables to use in your BODY or
- you may just refer to the defaults - they will be interned in the
- appropriate package.
-"
-  `(make-instance
-    'event-handler
-    :event-type 'wheelwork::after-added
-    :handler-function (lambda
-                          (,(intern (symbol-name container))
-                           ,(intern (symbol-name target)))
-                        (declare
-                         (ignorable
-                          ,(intern (symbol-name container))
-                          ,(intern (symbol-name target))))
-                        ,@body)))