Mercurial > urweb
diff tests/updateErr.ur @ 1890:abb0e95dcaa1
Fix more of client-side error handlers
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Thu, 14 Nov 2013 06:36:36 -0500 |
parents | 7c6b6c3c7b79 |
children |
line wrap: on
line diff
--- a/tests/updateErr.ur Thu Nov 14 06:16:58 2013 -0500 +++ b/tests/updateErr.ur Thu Nov 14 06:36:36 2013 -0500 @@ -8,8 +8,9 @@ <dyn signal={s <- signal s; return <xml>{[s]}</xml>}/><br/> <dyn signal={s <- signal s; if s = "" then return <xml>Init</xml> else error <xml>Crapky</xml>}/><br/> <dyn signal={s <- signal s; return <xml>"{[s]}"</xml>}/><br/> + <button onclick={fn _ => debug "88"}/><br/> - <ctextbox source={txt}/> <button onclick={s' <- get txt; set s s'; set txt ""}/> + <ctextbox source={txt}/> <button onclick={fn _ => s' <- get txt; set s s'; set txt ""}/> <hr/>