Mercurial > urweb

comparison demo/chat.ur @ 908:ed06e25c70ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Convert to requiring explicit 'rpc' marker
author Adam Chlipala <adamc@hcoop.net>
date Sat, 22 Aug 2009 12:55:18 -0400
parents 5819fb63c93a
children e6bc6bbd7a32
comparison
equal deleted inserted replaced
907:5fe49effbc83 908:ed06e25c70ef
33 Room.send room line 33 Room.send room line
34 34
35 fun doSpeak () = 35 fun doSpeak () =
36 line <- get newLine; 36 line <- get newLine;
37 set newLine ""; 37 set newLine "";
38 speak line 38 rpc (speak line)
39 in 39 in
40 return <xml><body onload={onload ()}> 40 return <xml><body onload={onload ()}>
41 <h1>{[r.T.Title]}</h1> 41 <h1>{[r.T.Title]}</h1>
42 42
43 <button value="Send:" onclick={doSpeak ()}/> <ctextbox source={newLine}/> 43 <button value="Send:" onclick={doSpeak ()}/> <ctextbox source={newLine}/>