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 | 568d06a9fcd0adbb173bd15cdbaf044d6b536176 (patch) | |
tree | 8f652c63195f27ebf46719ccc953c6597b079095 /tests | |
parent | 728965a2d50c6a1e3461309016ece1921492ff37 (diff) |
Press a button to send a message
Diffstat (limited to 'tests')
-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 |