From dd354e5caee002be931501062bf3aaa68f1d63e6 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 8 Jul 2022 10:28:59 -0500 Subject: [formatting] reorganized package exports --- src/interactive/interactive.lisp | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/interactive') diff --git a/src/interactive/interactive.lisp b/src/interactive/interactive.lisp index a8fa7fd..83910c7 100644 --- a/src/interactive/interactive.lisp +++ b/src/interactive/interactive.lisp @@ -8,6 +8,9 @@ (:documentation "Supplies an object with a listener slot.")) (defun add-handler (interactive handler) + "Adds HANDLER to INTERACTIVE. HANDLER is an instance of +WHEELWORK::EVENT-HANDLER, as most readily constructed by using the +ON-* Macros." (when (null (listener interactive)) (setf (listener interactive) (make-instance 'listener))) (pushnew handler (slot-value (listener interactive) (event-type handler)) :test #'eq) -- cgit v1.2.3