From 641d084e27f8178bd43784c292f4b6b482e64739 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 27 Jun 2022 11:09:50 -0500 Subject: [modify] renamed set-handler to add-handler --- wheelwork.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'wheelwork.lisp') 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) -- cgit v1.2.3