diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-22 11:58:16 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-22 11:58:16 -0500 |
| commit | 00841605110612f6e7f3bbfc054ceff980bf25be (patch) | |
| tree | 1f16b86d5c555eea22e60cb2d36f88682bd9023b /src/events | |
| parent | 6d9b8b48423dba99ecdba004f260c30e6717b6a6 (diff) | |
[version] [refactor] [redesign] removed containers
Diffstat (limited to 'src/events')
| -rw-r--r-- | src/events/event-handler.lisp | 65 |
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))) |