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