aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/events/event-handler.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/events/event-handler.lisp')
-rw-r--r--src/events/event-handler.lisp18
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