diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-07-21 10:12:35 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-07-21 10:12:35 -0400 |
| commit | 84a14ca026a8ca7ed4488e51506340b249809fae (patch) | |
| tree | 69937e8dd046f5e3b3ea38f66061cdc8310351bc /demo/batch.ur | |
| parent | adfa70ae09d13b338efee432b1e0bfc73af5e104 (diff) | |
Update demo code for key/mouse handler change
Diffstat (limited to 'demo/batch.ur')
| -rw-r--r-- | demo/batch.ur | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/demo/batch.ur b/demo/batch.ur index 8213dd81..74a5346a 100644 --- a/demo/batch.ur +++ b/demo/batch.ur @@ -25,7 +25,7 @@ fun show withDel lss = Nil => <xml/> | Cons ((id, a), ls) => <xml> <tr><td>{[id]}</td> <td>{[a]}</td> {if withDel then - <xml><td><button value="Delete" onclick={rpc (del id)}/> + <xml><td><button value="Delete" onclick={fn _ => rpc (del id)}/> </td></xml> else <xml/>} </tr> @@ -64,7 +64,7 @@ fun main () = {show True lss} - <button value="Update" onclick={ls <- rpc (allRows ()); set lss ls}/><br/> + <button value="Update" onclick={fn _ => ls <- rpc (allRows ()); set lss ls}/><br/> <br/> <h2>Batch new rows to add</h2> @@ -72,11 +72,11 @@ fun main () = <table> <tr> <th>Id:</th> <td><ctextbox source={id}/></td> </tr> <tr> <th>A:</th> <td><ctextbox source={a}/></td> </tr> - <tr> <th/> <td><button value="Batch it" onclick={add ()}/></td> </tr> + <tr> <th/> <td><button value="Batch it" onclick={fn _ => add ()}/></td> </tr> </table> <h2>Already batched:</h2> {show False batched} - <button value="Execute" onclick={exec ()}/> + <button value="Execute" onclick={fn _ => exec ()}/> </body></xml> end |