12 lines
238 B
OCaml
12 lines
238 B
OCaml
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
|