Mercurial > repos > tabletprog
annotate samples/ui.tp @ 333:577406b25f89
Added binding for SDL_SetTextureColorMod and SDL_GetTextureColorMod and updated the Freetype sample to use it for setting the color of text
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 29 Mar 2015 09:43:24 -0700 |
parents | ead24192ed45 |
children | 79a14e41b79a |
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 |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
6 } |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
7 |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
8 wind show: |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
9 ui enterEventLoop |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
10 } |
ead24192ed45
Initial work on a UI module
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
11 } |