diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-03-22 15:16:34 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-03-22 15:16:34 -0400 |
commit | bac67ca0f668cd381205b243355da8c906c58b5b (patch) | |
tree | 8f652c63195f27ebf46719ccc953c6597b079095 /tests/channel.ur | |
parent | 2627ab6f5cfd96df06016a88b7e5a245e3ab9d8f (diff) |
Press a button to send a message
Diffstat (limited to 'tests/channel.ur')
-rw-r--r-- | tests/channel.ur | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/channel.ur b/tests/channel.ur index 2ea89e87..6b98f5d7 100644 --- a/tests/channel.ur +++ b/tests/channel.ur @@ -4,8 +4,11 @@ fun main () : transaction page = fun onload () = subscribe ch; send ch "Hello world!" + + fun haveAnother () = + send ch "Here's another." in return <xml><body onload={onload ()}> - + <button value="Another?" onclick={haveAnother ()}/> </body></xml> end |