Update editor organisation

1 files changed, 16 insertions, 1 deletions

diff --git a/editor/forms/events.ml b/editor/forms/events.ml
index 339e15d..f7f5711 100755
--- a/editor/forms/events.ml
+++ b/editor/forms/events.ml
@@ -1,5 +1,20 @@
-(** This type is designed to be extended for each form *)
+(** 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
+