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 | da2141fbf28e6173f587ee146acc8f78b7ea8e0d (patch) | |
tree | 69937e8dd046f5e3b3ea38f66061cdc8310351bc /demo/batchFun.ur | |
parent | 3e838a5bf95222adb9add226aa3732c3c28633bc (diff) |
Update demo code for key/mouse handler change
Diffstat (limited to 'demo/batchFun.ur')
-rw-r--r-- | demo/batchFun.ur | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/demo/batchFun.ur b/demo/batchFun.ur index d69d68af..2147868c 100644 --- a/demo/batchFun.ur +++ b/demo/batchFun.ur @@ -75,7 +75,7 @@ functor Make(M : sig <xml><td>{m.Show v}</td></xml>) M.fl M.cols (r -- #Id)} {if withDel then - <xml><td><button value="Delete" onclick={rpc (del r.Id)}/></td></xml> + <xml><td><button value="Delete" onclick={fn _ => rpc (del r.Id)}/></td></xml> else <xml/>} </tr> @@ -132,7 +132,7 @@ functor Make(M : sig {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> @@ -143,12 +143,12 @@ functor Make(M : sig (fn [nm :: Name] [p ::_] [rest ::_] [[nm] ~ rest] m s => <xml><tr> <th>{[m.Nam]}:</th> <td>{m.Widget s}</td> </tr></xml>) M.fl M.cols inps} - <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 |