diff options
| -rw-r--r-- | src/events/event-handler.lisp | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/events/event-handler.lisp b/src/events/event-handler.lisp index b8c72ef..c8b83d0 100644 --- a/src/events/event-handler.lisp +++ b/src/events/event-handler.lisp @@ -78,6 +78,14 @@ can be redefined using this form to support interactive development." ,@body))) (defmacro on-mousemotion + ((&optional + (target 'target) + (x 'x) (y 'y) + (xrel 'xrel) (yrel 'yrel) + (state 'state) + (win-x 'win-x) (win-y 'win-y) + (win-xrel 'win-xrel) (win-yrel 'win-yrel)) + &body body) "ON-MOUSEMOTION defines a mouse motion event handler. All variable arguments supplied the the ON-MOUSEDOWN handler form are optional. You may supply your own variables to use in your BODY or you @@ -91,15 +99,7 @@ appropriate package. - STATE is the button state, see the SDL2 docs - WIN-* variables are the unscaled event values, if you require them. " - ((&optional - (target 'target) - (x 'x) (y 'y) - (xrel 'xrel) (yrel 'yrel) - (state 'state) - (win-x 'win-x) (win-y 'win-y) - (win-xrel 'win-xrel) (win-yrel 'win-yrel)) - &body body) - "Creates a handler for MOUSEMOTION events" + `(make-instance 'event-handler :event-type 'wheelwork::mousemotion |