blob: f7f5711e6e31cb613b28a608a9d622e02493edfa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(** This type is designed to be extended for each form.
Each of them hold the values inside the form.
*)
type kind = ..
(** The signal has to be log in order to be completely working *)
type t = kind Note.signal * Brr.El.t
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
|