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/listEdit.ur | |
| parent | 3e838a5bf95222adb9add226aa3732c3c28633bc (diff) | |
Update demo code for key/mouse handler change
Diffstat (limited to 'demo/listEdit.ur')
| -rw-r--r-- | demo/listEdit.ur | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demo/listEdit.ur b/demo/listEdit.ur index 1a9851a7..5b45d9a2 100644 --- a/demo/listEdit.ur +++ b/demo/listEdit.ur @@ -15,7 +15,7 @@ and show' rl = Nil => return <xml/> | Cons {Data = ss, NewData = ss', Tail = rls} => return <xml> <dyn signal={showString ss}/> - <button value="Change to:" onclick={s <- get ss'; set ss s}/> + <button value="Change to:" onclick={fn _ => s <- get ss'; set ss s}/> <ctextbox source={ss'}/><br/> <dyn signal={show rls}/> </xml> @@ -46,7 +46,7 @@ fun main () = end in return <xml><body> - <ctextbox source={data}/> <button value="Add" onclick={add ()}/><br/> + <ctextbox source={data}/> <button value="Add" onclick={fn _ => add ()}/><br/> <br/> <dyn signal={show head}/> |