Add cursor sample

Signed-off-by: Marek Maškarinec <[email protected]>

samples/cursor/main.um

@@ -0,0 +1,21 @@
+import (
+	"canvas.um"
+	"window.um"
+    "th.um"
+    "input.um"
+)
+
+cursor := 0
+
+fn init*() {
+	window::setup("Cursor Sample", 400, 400)
+
+	window::onFrame.register({
+  	cursor += trunc(input::getMouseScroll().y) > 0 ? 1 : 0
+  	cursor += trunc(input::getMouseScroll().y) < 0 ? -1 : 0
+  	cursor %= int(window::Cursor.count_)
+  	cursor = cursor < 0 ? 0 : cursor
+  	window::setCursor(window::Cursor(cursor))
+  	canvas::drawText(sprintf("Select cursor with\nscrollwheel: %d", cursor), {10, 10}, th::red, 3)
+	})
+}