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