From 5122fcd280a8ba098e0e4c680c8058db526cc6ac Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 8 Jul 2022 08:32:04 -0500 Subject: doh --- src/events/event-handler.lisp | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'src/events/event-handler.lisp') 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 -- cgit v1.2.3