diff options
Diffstat (limited to 'src/interactive')
| -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) |