Class Make.treeSource

val mutable filetree : tree_node list
val mutable on_deselect : 'a -> Ojs_filetree.Types.path -> unit
val mutable on_select : 'a -> [ `Dir | `File of Ojs_filetree.Types.mime_type ] -> Ojs_filetree.Types.path -> unit
val mutable selected : (Ojs_js.id * Ojs_filetree.Types.path) option
val mutable show_files : bool
method add_dir : Ojs_filetree.Types.path -> string -> unit Lwt.t
method add_file : [ `Dir | `File ] -> Ojs_filetree.Types.path -> Js_of_ocaml.File.file Js_of_ocaml.Js.t -> unit
method build_from_tree : Ojs_filetree.Types.file_tree list -> unit
method compare_tn : tree_node -> tree_node -> int
method delete : Ojs_filetree.Types.path -> unit Lwt.t
method display_error : string -> unit
method handle_add_dir : Ojs_filetree.Types.path -> unit
method handle_add_file : Ojs_filetree.Types.path -> Ojs_filetree.Types.mime_type -> unit
method handle_delete : Ojs_filetree.Types.path -> unit
method handle_drag_drop : [ `Dir | `File ] -> Ojs_filetree.Types.path -> Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t -> unit
method handle_message : P.server_msg -> bool Js_of_ocaml.Js.t
method id : Ojs_js.SMap.key
method insert_dir : Ojs_filetree.Types.path -> unit
method insert_tn : Ojs_js.id -> tree_node -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t -> tree_node list -> tree_node list
method msg_id : string
method on_deselect : 'a -> Ojs_filetree.Types.path -> unit
method on_select : 'a -> [ `Dir | `File of Ojs_filetree.Types.mime_type ] -> Ojs_filetree.Types.path -> unit
method prompt_add_dir : Ojs_filetree.Types.path -> unit Lwt.t
method prompt_delete : Ojs_filetree.Types.path -> unit Lwt.t
method set_on_deselect : ('a -> Ojs_filetree.Types.path -> unit) -> unit
method set_on_select : ('a -> [ `Dir | `File of Ojs_filetree.Types.mime_type ] -> Ojs_filetree.Types.path -> unit) -> unit
method set_onclick : Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t -> Ojs_js.SMap.key -> [ `Dir | `File of Ojs_filetree.Types.mime_type ] -> Ojs_filetree.Types.path -> unit
method set_selected : Ojs_js.SMap.key -> [ `Dir | `File of Ojs_filetree.Types.mime_type ] -> Ojs_filetree.Types.path -> unit
method set_show_files : bool -> unit
method set_unselected : Ojs_js.SMap.key -> Ojs_filetree.Types.path -> unit
method simple_call : P.client_msg -> unit Lwt.t
method tree_node_by_path : Ojs_filetree.Types.path -> tree_node
method update_tree : unit Lwt.t