Module Ojsft_js

Filetree, client side

type node_type = [
| `Dir
| `File
]
type tree_node = {
tn_id : Ojs_js.id;
mutable tn_basename : string;
mutable tn_path : Ojs_base.Path.t;
tn_span_id : Ojs_js.id;
tn_subs_id : Ojs_js.id option;
tn_type : node_type;
mutable tn_subs : tree_node list;
}
val tree_nodes : tree_node Ojs_js.SMap.t Stdlib.ref
val button_bar_class : string
val button_class : string
val collapsed_class : string
val button_bar : string -> Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
val add_button : string -> ?cls:string -> string -> Js_of_ocaml.Dom.#node Js_of_ocaml.Js.t -> Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
val add_button_add_dir : string -> Js_of_ocaml.Dom.#node Js_of_ocaml.Js.t -> Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
val add_button_delete : string -> Js_of_ocaml.Dom.#node Js_of_ocaml.Js.t -> Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
val drag_class : string
val preventDefault : 'a -> unit
val stopPropagation : 'a -> unit
val expand_buttons : ?start:[< `Collapsed | `Expand Collapsed ] -> string -> Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t -> string -> Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t * Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
module type S = sig ... end