Mercurial > repos > tabletprog

annotate samples/ui.tp @ 366:810b6115c1d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add a pop method to array
author Michael Pavone <pavone@retrodev.com>
date Sat, 08 Aug 2015 21:13:26 -0700
parents b8f721bde066
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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 }