Mercurial > urweb
diff demo/batchFun.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 | 818d4097e2ed |
| children |
line wrap: on
line diff
--- a/demo/batchFun.ur Sat Jul 21 10:02:53 2012 -0400 +++ b/demo/batchFun.ur Sat Jul 21 10:12:35 2012 -0400 @@ -75,7 +75,7 @@ <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 @@ {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 @@ (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