summaryrefslogtreecommitdiff
path: root/tests/rform.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-01-11 10:05:06 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-01-11 10:05:06 -0500
commit6b14938a39f6a00cce63b693e879d1df433913b6 (patch)
treeebe069f042def365bd9c7cd68522d305e82f7eb7 /tests/rform.ur
parenta1aa2b791511e172b177516e7f58390a2d074a2b (diff)
Hooking a source into an input
Diffstat (limited to 'tests/rform.ur')
-rw-r--r--tests/rform.ur10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/rform.ur b/tests/rform.ur
new file mode 100644
index 00000000..17e9a0cf
--- /dev/null
+++ b/tests/rform.ur
@@ -0,0 +1,10 @@
+fun main () : transaction page =
+ s <- source "Hi";
+ return <xml><body>
+ <form>
+ <textbox{#A} source={s}/>
+ </form>
+ <a onclick={set s "NEW AND DIFFERENT"}>Change it up!</a><br/>
+ <br/>
+ Latest: <dyn signal={s <- signal s; return (cdata s)}/>
+ </body></xml>