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/listEdit.ur | |
parent | adfa70ae09d13b338efee432b1e0bfc73af5e104 (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}/> |