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