Mercurial > repos > tabletprog

view samples/ui.tp @ 336:2a0463c46913

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add hash method to float types and make hash always return a 32-bit int
author Michael Pavone <pavone@retrodev.com>
date Fri, 03 Apr 2015 23:07:06 -0700
parents 79a14e41b79a
children b8f721bde066
line wrap: on
line source

#{
	main <- {
		wind <- ui window: #{
			title <- "Quiche UI Test"
			color <- ui r: 192u8 g: 192u8 b: 192u8
			children <- #[
				ui image: #{
					source <- "944.bmp"
				}
			]
		}
		
		wind show:
		ui enterEventLoop
	}
}