sig   type switch   val register :     LTerm_widget_callbacks.switch option -> 'a Lwt_sequence.t -> 'a -> unit   val stop : LTerm_widget_callbacks.switch -> unit   val exec_callbacks : ('a -> unit) Lwt_sequence.t -> 'a -> unit   val exec_filters : ('a -> bool) Lwt_sequence.t -> 'a -> bool end