summaryrefslogtreecommitdiff
path: root/demo/increment.ur
diff options
context:
space:
mode:
Diffstat (limited to 'demo/increment.ur')
-rw-r--r--demo/increment.ur10
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>