Mercurial > repos > tabletprog
annotate samples/ui.tp @ 372:e857104bd183
Added reverse method to arrays
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 12 Aug 2015 19:16:41 -0700 |
parents | b8f721bde066 |
children |
rev | line source |
---|---|
332
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1 #{ |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
2 main <- { |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
3 wind <- ui window: #{ |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
4 title <- "Quiche UI Test" |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
5 color <- ui r: 192u8 g: 192u8 b: 192u8 |
335
79a14e41b79a
Add image element and placeholder text element to ui module
Michael Pavone <pavone@retrodev.com>
parents:
332
diff
changeset
|
6 children <- #[ |
79a14e41b79a
Add image element and placeholder text element to ui module
Michael Pavone <pavone@retrodev.com>
parents:
332
diff
changeset
|
7 ui image: #{ |
79a14e41b79a
Add image element and placeholder text element to ui module
Michael Pavone <pavone@retrodev.com>
parents:
332
diff
changeset
|
8 source <- "944.bmp" |
79a14e41b79a
Add image element and placeholder text element to ui module
Michael Pavone <pavone@retrodev.com>
parents:
332
diff
changeset
|
9 } |
337
b8f721bde066
Add support for text elements in ui module
Michael Pavone <pavone@retrodev.com>
parents:
335
diff
changeset
|
10 ui text: #{ |
b8f721bde066
Add support for text elements in ui module
Michael Pavone <pavone@retrodev.com>
parents:
335
diff
changeset
|
11 text <- "The quick brown fox\njumps over the lazy dog." |
b8f721bde066
Add support for text elements in ui module
Michael Pavone <pavone@retrodev.com>
parents:
335
diff
changeset
|
12 } |
335
79a14e41b79a
Add image element and placeholder text element to ui module
Michael Pavone <pavone@retrodev.com>
parents:
332
diff
changeset
|
13 ] |
332
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
14 } |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
15 |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
16 wind show: |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
17 ui enterEventLoop |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
18 } |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
19 } |