diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-03-10 13:57:09 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-03-10 13:57:09 -0400 |
| commit | 4f9024019d78bebec6926d19da0361587c88bd03 (patch) | |
| tree | 3e522006804b15893b7382c24a5f0806e36f3579 /demo/increment.ur | |
| parent | b3bfa064636a8507e0fe83779791dbbee6f15c38 (diff) | |
Increment demo
Diffstat (limited to 'demo/increment.ur')
| -rw-r--r-- | demo/increment.ur | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/demo/increment.ur b/demo/increment.ur new file mode 100644 index 00000000..a74e80df --- /dev/null +++ b/demo/increment.ur @@ -0,0 +1,10 @@ +sequence seq + +fun increment () = nextval seq + +fun main () = + src <- source 0; + return <xml><body> + <dyn signal={n <- signal src; return <xml>{[n]}</xml>}/> + <button value="Update" onclick={n <- increment (); set src n}/> + </body></xml> |