Mercurial > urweb
comparison tests/cselect.ur @ 797:2c463eee89fa
cselect
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Thu, 14 May 2009 09:33:48 -0400 |
| parents | |
| children | 9330ba3a2799 |
comparison
equal
deleted
inserted
replaced
| 796:6271f0e3c272 | 797:2c463eee89fa |
|---|---|
| 1 fun main () = | |
| 2 s <- source ""; | |
| 3 return <xml><body> | |
| 4 <cselect source={s}> | |
| 5 <coption>Wilbur</coption> | |
| 6 <coption>Walbur</coption> | |
| 7 </cselect> | |
| 8 | |
| 9 Hello, I'm <dyn signal={s <- signal s; return <xml>{[s]}</xml>}/>. | |
| 10 I'll be your waiter for this evening. | |
| 11 </body></xml> |