diff options
Diffstat (limited to 'wheelwork.lisp')
| -rw-r--r-- | wheelwork.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wheelwork.lisp b/wheelwork.lisp index 952dd22..161f5b7 100644 --- a/wheelwork.lisp +++ b/wheelwork.lisp @@ -122,7 +122,7 @@ necessary." (after-dropped (after-dropped-table listener)) (before-dropped (before-dropped-table listener)))) -(defun set-handler (interactive handler) +(defun add-handler (interactive handler) (when (null (listener interactive)) (setf (listener interactive) (make-instance 'listener))) (setf @@ -130,7 +130,7 @@ necessary." (gethash interactive (listener-table-for (listener interactive) (event-type handler))) handler)) -(defun unset-handler (interactive handler-or-event-type) +(defun remove-handler (interactive handler-or-event-type) "Handler can be an instance of EVENT-HANDLER or can be a symbol whose name is an event type." (when (listener interactive) |