Mercurial > urweb
comparison demo/chat.ur @ 1784:e6bc6bbd7a32
Update demo code for key/mouse handler change
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sat, 21 Jul 2012 10:12:35 -0400 |
| parents | ed06e25c70ef |
| children |
comparison
equal
deleted
inserted
replaced
| 1783:5bc4fbf9c0fe | 1784:e6bc6bbd7a32 |
|---|---|
| 38 rpc (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={fn _ => doSpeak ()}/> <ctextbox source={newLine}/> |
| 44 | 44 |
| 45 <h2>Messages</h2> | 45 <h2>Messages</h2> |
| 46 | 46 |
| 47 <dyn signal={Buffer.render buf}/> | 47 <dyn signal={Buffer.render buf}/> |
| 48 | 48 |