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