Mercurial > gui
view sourceL.ur @ 24:d314d2ec3300
Be able to obtain the name from a navItem
author | Ron de Bruijn <rmbruijn@gmail.com> |
---|---|
date | Sun, 04 Dec 2011 16:45:31 +0100 |
parents | 8300d5f0dc19 |
children |
line wrap: on
line source
con t a = {Source : source a, OnSet : source (a -> transaction {})} fun create [a] (i : a) = s <- source i; f <- source (fn _ => return ()); return {Source = s, OnSet = f} fun onChange [a] (t : t a) f = old <- get t.OnSet; set t.OnSet (fn x => (old x; f x)) fun set [a] (t : t a) (v : a) = Basis.set t.Source v; f <- get t.OnSet; f v fun get [a] (t : t a) = Basis.get t.Source fun value [a] (t : t a) = signal t.Source