'->
object
  method connect : ('-> unit) -> unit
  method fire : '-> unit
  method get : 'a
  method lock : (unit -> unit) -> unit
  method on_check : '-> (bool -> unit) -> unit
  method on_event : (unit -> unit) -> unit
  method on_value : '-> (unit -> unit) -> unit
  method send : ('-> unit) -> unit -> unit
  method set : '-> unit
  method set_enabled : bool -> unit
end