open Js_of_ocaml open Store val run : (container: (* storeview:S.tree Lwt.t ->*) Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t -> textbox:Js_of_ocaml.Dom_html.textAreaElement Js_of_ocaml.Js.t -> unit) -> unit -> unit