--- 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"
+													}
 												}
 											}
 										}