Mercurial > gui
annotate sourceL.urs @ 30:c1f06342c81f
Add margin example
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sat, 12 May 2012 10:07:45 -0400 |
| parents | 8300d5f0dc19 |
| children |
| rev | line source |
|---|---|
| adam@15 | 1 (* Reactive sources that accept change listeners *) |
| kkallio@14 | 2 |
| adam@15 | 3 con t :: Type -> Type |
| kkallio@14 | 4 |
| adam@15 | 5 val create : a ::: Type -> a -> transaction (t a) |
| kkallio@14 | 6 |
| adam@15 | 7 val onChange : a ::: Type -> t a -> (a -> transaction {}) -> transaction {} |
| kkallio@14 | 8 |
| adam@15 | 9 val set : a ::: Type -> t a -> a -> transaction {} |
| adam@15 | 10 val get : a ::: Type -> t a -> transaction a |
| adam@15 | 11 val value : a ::: Type -> t a -> signal a |