editor/forms/events.ml


1
2
3
4
5
6
7
8
9
10
11
12

module type Handler = sig

  type t

  val on_close: t -> State.t -> State.t

end

type event = Event : 'a * (module Handler with type t = 'a) -> event

(** The signal has to be log in order to be completely working *)
type t = event Note.signal * Brr.El.t