object
  method virtual connect : ('-> unit) -> unit
  method on_check : '-> (bool -> unit) -> unit
  method on_event : (unit -> unit) -> unit
  method on_value : '-> (unit -> unit) -> unit
end