Mercurial > repos > tabletprog
view samples/ui.tp @ 371:625b0aa9c204
Add a simple echo server sample to demonstrate socket listening
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 12 Aug 2015 19:13:52 -0700 |
parents | b8f721bde066 |
children |
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" } ui text: #{ text <- "The quick brown fox\njumps over the lazy dog." } ] } wind show: ui enterEventLoop } }