Mercurial > repos > tabletprog

comparison samples/sdl.tp @ 293:2b045d5b673b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
292:f73ebc146af9 293:2b045d5b673b
7 quit 7 quit
8 keyDown 8 keyDown
9 keyUp 9 keyUp
10 mouseDown 10 mouseDown
11 mouseUp 11 mouseUp
12 mouseMotion
12 ] from: (sdl eventTypes) 13 ] from: (sdl eventTypes)
13 main <- { 14 main <- {
14 if: (sdl init: (video or timer)) = 0 { 15 if: (sdl init: (video or timer)) = 0 {
15 (sdl createWindow: "SDL Test" pos: 0 0 size: 640 480 flags: 0u32) value: :window { 16 (sdl createWindow: "SDL Test" pos: 0 0 size: 640 480 flags: 0u32) value: :window {
16 (window createRenderer: -1 flags: ((window renderOpts) accelerated)) value: :render { 17 (window createRenderer: -1 flags: ((window renderOpts) accelerated)) value: :render {
40 } else: { 41 } else: {
41 if: (ev type) = keyDown || (ev type) = keyUp { 42 if: (ev type) = keyDown || (ev type) = keyUp {
42 print: "Key event for: " . (ev keyChar) . ", pressed?: " . (ev pressed?) . "\n" 43 print: "Key event for: " . (ev keyChar) . ", pressed?: " . (ev pressed?) . "\n"
43 } else: { 44 } else: {
44 if: (ev type) = mouseDown || (ev type) = mouseUp { 45 if: (ev type) = mouseDown || (ev type) = mouseUp {
45 print: "Mouse event at: " . (ev x) . ", " . (ev y) . " for button " . (ev button) . "\n" 46 print: "Mouse button event at: " . (ev x) . ", " . (ev y) . " for button " . (ev button) . "\n"
47 } else: {
48 if: (ev type) = mouseMotion {
49 print: "Mouse motion event: " . (ev xRel) . ", " . (ev yRel) . "\n"
50 }
46 } 51 }
47 } 52 }
48 } 53 }
49 } none: {} 54 } none: {}
50 } 55 }