Mercurial > repos > tabletprog
comparison samples/ui.tp @ 335:79a14e41b79a
Add image element and placeholder text element to ui module
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 30 Mar 2015 19:12:51 -0700 |
parents | ead24192ed45 |
children | b8f721bde066 |
comparison
equal
deleted
inserted
replaced
334:98534108b854 | 335:79a14e41b79a |
---|---|
1 #{ | 1 #{ |
2 main <- { | 2 main <- { |
3 wind <- ui window: #{ | 3 wind <- ui window: #{ |
4 title <- "Quiche UI Test" | 4 title <- "Quiche UI Test" |
5 color <- ui r: 192u8 g: 192u8 b: 192u8 | 5 color <- ui r: 192u8 g: 192u8 b: 192u8 |
6 children <- #[ | |
7 ui image: #{ | |
8 source <- "944.bmp" | |
9 } | |
10 ] | |
6 } | 11 } |
7 | 12 |
8 wind show: | 13 wind show: |
9 ui enterEventLoop | 14 ui enterEventLoop |
10 } | 15 } |