Mercurial > gui
annotate sourceL.urs @ 15:8300d5f0dc19
Replace ChangePoller with SourceL, plus some other rearrangements
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sun, 07 Aug 2011 14:38:52 -0400 |
| parents | changePoller.urs@0827320b0f04 |
| 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 |