Module Stk.TreeSource

A tree widget. Interface is not stable yet.

Sourcetype 'a tree_spec = {
  1. is_leaf : 'a -> bool;
  2. subs : 'a -> 'a list Lwt.t;
  3. can_select : 'a -> bool;
  4. can_unselect : 'a -> bool;
}
Sourceval tree_spec : ?can_select:('a -> bool) -> ?can_unselect:('a -> bool) -> is_leaf:('a -> bool) -> subs:('a -> 'a list Lwt.t) -> unit -> 'a tree_spec
Sourcetype ('a, 'b) node_label = {
  1. create : Canvas.group -> 'b;
  2. update : selected:bool -> expanded:bool -> 'a -> 'b -> unit;
  3. remove : Canvas.group -> 'b -> unit;
}
Sourceval node_label : create:(Canvas.group -> 'a) -> update:(selected:bool -> expanded:bool -> 'b -> 'a -> unit) -> remove:(Canvas.group -> 'a -> unit) -> ('b, 'a) node_label
Sourceval text_collapsed : string
Sourceval text_expanded : string
Sourcemodule Id : sig ... end
Sourcemodule IMap : sig ... end
Sourcemodule ISet : sig ... end
Sourceval key_expand : Tsdl.Sdl.keycode
Sourceval key_collapse : Tsdl.Sdl.keycode
Sourceval key_select : Tsdl.Sdl.keycode
Sourceval key_next : Tsdl.Sdl.keycode
Sourceval key_prev : Tsdl.Sdl.keycode
Sourceval key_bottom : Tsdl.Sdl.keycode
Sourcetype ('a, 'b) node = {
  1. id : Id.t;
  2. parent : ('a, 'b) node option;
  3. mutable data : 'a;
  4. group : Canvas.group;
  5. fold_btn : Canvas.label option;
  6. label_group : Canvas.group;
  7. label : 'b;
  8. mutable selected : bool;
  9. mutable sub_group : Canvas.group option;
  10. mutable expanded : bool;
  11. mutable children : ('a, 'b) node list;
}
Sourcetype Events.ev +=
  1. | Node_collapsed : (('a * ('a, 'b) node) -> bool) Events.ev
  2. | Node_expanded : (('a0 * ('a0, 'b0) node) -> bool) Events.ev
  3. | Node_clicked : ((Widget.button_ev * 'a1 * ('a1, 'b1) node) -> bool) Events.ev
  4. | Node_selected : (('a2 * ('a2, 'b2) node) -> bool) Events.ev
  5. | Node_unselected : (('a3 * ('a3, 'b3) node) -> bool) Events.ev
Sourceclass ['a, 'b] tree : ?classes:string list option -> ?name:string option -> ?props:Props.t option -> ?wdata: Widget.wdata option -> 'a tree_spec -> ('a, 'b) node_label -> object ... end
Sourceval tree : ?classes:string list -> ?name:string -> ?props:Props.t -> ?wdata:Widget.wdata -> ?pack:(Widget.widget -> unit) -> ?selection_mode:Props.selection_mode -> 'a tree_spec -> ('a, 'b) node_label -> ('a, 'b) tree