Mercurial > repos > tabletprog
diff samples/sdl.tp @ 293:2b045d5b673b
Add binding for sdl mouse motion event
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Thu, 24 Jul 2014 09:43:18 -0700 |
parents | 38bbbf74b735 |
children | 4c669942c30d |
line wrap: on
line diff
--- a/samples/sdl.tp Thu Jul 24 09:43:06 2014 -0700 +++ b/samples/sdl.tp Thu Jul 24 09:43:18 2014 -0700 @@ -9,6 +9,7 @@ keyUp mouseDown mouseUp + mouseMotion ] from: (sdl eventTypes) main <- { if: (sdl init: (video or timer)) = 0 { @@ -42,7 +43,11 @@ print: "Key event for: " . (ev keyChar) . ", pressed?: " . (ev pressed?) . "\n" } else: { if: (ev type) = mouseDown || (ev type) = mouseUp { - print: "Mouse event at: " . (ev x) . ", " . (ev y) . " for button " . (ev button) . "\n" + print: "Mouse button event at: " . (ev x) . ", " . (ev y) . " for button " . (ev button) . "\n" + } else: { + if: (ev type) = mouseMotion { + print: "Mouse motion event: " . (ev xRel) . ", " . (ev yRel) . "\n" + } } } }