diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-06-27 11:09:50 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-06-27 11:09:50 -0500 |
| commit | 641d084e27f8178bd43784c292f4b6b482e64739 (patch) | |
| tree | 8511a91022349a28a8639158b334c3d3c4699921 /wheelwork.lisp | |
| parent | 9c058339dde198062e96674c515ea946de5902b5 (diff) | |
[modify] renamed set-handler to add-handler
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) |