aboutsummaryrefslogtreecommitdiffhomepage
path: root/tests
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
commit40a04276005343f3dbc7d963a425e382a4e20701 (patch)
treeebe069f042def365bd9c7cd68522d305e82f7eb7 /tests
parent9608c763d7b2923c11e8abd29e28271ae470a5fe (diff)
Hooking a source into an input
Diffstat (limited to 'tests')
-rw-r--r--tests/rform.ur10
-rw-r--r--tests/rform.urp3
2 files changed, 13 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>
diff --git a/tests/rform.urp b/tests/rform.urp
new file mode 100644
index 00000000..b8cfc369
--- /dev/null
+++ b/tests/rform.urp
@@ -0,0 +1,3 @@
+debug
+
+rform