diff samples/ui.tp @ 332:ead24192ed45

Initial work on a UI module
author Michael Pavone <pavone@retrodev.com>
date Sat, 28 Mar 2015 14:21:22 -0700
parents
children 79a14e41b79a
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/ui.tp	Sat Mar 28 14:21:22 2015 -0700
@@ -0,0 +1,11 @@
+#{
+	main <- {
+		wind <- ui window: #{
+			title <- "Quiche UI Test"
+			color <- ui r: 192u8 g: 192u8 b: 192u8
+		}
+		
+		wind show:
+		ui enterEventLoop
+	}
+}
\ No newline at end of file