Mercurial > urweb
comparison tests/stypes.ur @ 585:35471f067980
Reactive record pattern
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 01 Jan 2009 11:04:09 -0500 |
parents | 101eb0058136 |
children | 1c969230ee7f |
comparison
equal
deleted
inserted
replaced
584:101eb0058136 | 585:35471f067980 |
---|---|
8 return <xml><body> | 8 return <xml><body> |
9 <dyn signal={n <- signal sInt; return <xml>{[n + 3]}</xml>}/> <a onclick={set sInt 1}>Change</a><br/> | 9 <dyn signal={n <- signal sInt; return <xml>{[n + 3]}</xml>}/> <a onclick={set sInt 1}>Change</a><br/> |
10 | 10 |
11 <dyn signal={n <- signal sFloat; return <xml>{[n + 1.0]}</xml>}/> <a onclick={set sFloat 4.56}>Change</a><br/> | 11 <dyn signal={n <- signal sFloat; return <xml>{[n + 1.0]}</xml>}/> <a onclick={set sFloat 4.56}>Change</a><br/> |
12 | 12 |
13 <dyn signal={p <- signal sBoth; return <xml>{[p.1]}, {[p.2]}</xml>}/> <a onclick={set sBoth (8, 100.001)}>Change</a><br/> | 13 <dyn signal={p <- signal sBoth; return <xml>{[p.1]}, {[p.2]}</xml>}/>; |
14 <dyn signal={p <- signal sBoth; case p of | |
15 (7, _) => return <xml>Initial</xml> | |
16 | (fst, snd) => return <xml>{[fst]}, {[snd]}</xml>}/> | |
17 <a onclick={set sBoth (8, 100.001)}>Change</a><br/> | |
14 | 18 |
15 <dyn signal={o <- signal sOpt; case o of | 19 <dyn signal={o <- signal sOpt; case o of |
16 None => return <xml>None</xml> | 20 None => return <xml>None</xml> |
17 | Some n => return <xml>{[n]}</xml>}/> | 21 | Some n => return <xml>{[n]}</xml>}/> |
18 <a onclick={set sOpt (Some 7)}>Change</a><br/> | 22 <a onclick={set sOpt (Some 7)}>Change</a><br/> |