Mercurial > urweb

comparison tests/updateErr.ur @ 1890:abb0e95dcaa1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
1889:c40ed80be943 1890:abb0e95dcaa1
6 return <xml><body onload={onError (fn xml => Buffer.write b (show xml)); 6 return <xml><body onload={onError (fn xml => Buffer.write b (show xml));
7 onFail (fn s => alert ("FAIL! " ^ s))}> 7 onFail (fn s => alert ("FAIL! " ^ s))}>
8 <dyn signal={s <- signal s; return <xml>{[s]}</xml>}/><br/> 8 <dyn signal={s <- signal s; return <xml>{[s]}</xml>}/><br/>
9 <dyn signal={s <- signal s; if s = "" then return <xml>Init</xml> else error <xml>Crapky</xml>}/><br/> 9 <dyn signal={s <- signal s; if s = "" then return <xml>Init</xml> else error <xml>Crapky</xml>}/><br/>
10 <dyn signal={s <- signal s; return <xml>"{[s]}"</xml>}/><br/> 10 <dyn signal={s <- signal s; return <xml>"{[s]}"</xml>}/><br/>
11 <button onclick={fn _ => debug "88"}/><br/>
11 12
12 <ctextbox source={txt}/> <button onclick={s' <- get txt; set s s'; set txt ""}/> 13 <ctextbox source={txt}/> <button onclick={fn _ => s' <- get txt; set s s'; set txt ""}/>
13 14
14 <hr/> 15 <hr/>
15 16
16 <dyn signal={Buffer.render b}/> 17 <dyn signal={Buffer.render b}/>
17 </body></xml> 18 </body></xml>