class ['a] selector : 'a -> object .. end
['a]
'a ->
object
end
Toolbox.signal
method set : 'a -> unit
'a -> unit
method get : 'a
'a
method send : ('a -> unit) -> unit -> unit
('a -> unit) -> unit -> unit