diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-08 10:28:59 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-08 10:28:59 -0500 |
| commit | dd354e5caee002be931501062bf3aaa68f1d63e6 (patch) | |
| tree | b94694b16294c532726dbe7a66cb8f12eb365411 /src/interactive/interactive.lisp | |
| parent | 7bf212df6c3cf0d16b7145ddb18b97f504717230 (diff) | |
[formatting] reorganized package exports
Diffstat (limited to 'src/interactive/interactive.lisp')
| -rw-r--r-- | src/interactive/interactive.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
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) |