stk 0.1.0 · OCaml Package

A tree widget. Interface is not stable yet.

type 'a tree_spec = {

is_leaf : 'a -> bool;
subs : 'a -> 'a list Lwt.t;
can_select : 'a -> bool;
can_unselect : 'a -> bool;

}

val tree_spec : 
  ?can_select:('a -> bool) ->
  ?can_unselect:('a -> bool) ->
  is_leaf:('a -> bool) ->
  subs:('a -> 'a list Lwt.t) ->
  unit ->
  'a tree_spec

type ('a, 'b) node_label = {

create : Canvas.group -> 'b;
update : selected:bool -> expanded:bool -> 'a -> 'b -> unit;
remove : Canvas.group -> 'b -> unit;

}

val node_label : 
  create:(Canvas.group -> 'a) ->
  update:(selected:bool -> expanded:bool -> 'b -> 'a -> unit) ->
  remove:(Canvas.group -> 'a -> unit) ->
  ('b, 'a) node_label

val text_collapsed : string

val text_expanded : string

module Id : sig ... end

module IMap : sig ... end

module ISet : sig ... end

val key_expand : Tsdl.Sdl.keycode

val key_collapse : Tsdl.Sdl.keycode

val key_select : Tsdl.Sdl.keycode

val key_next : Tsdl.Sdl.keycode

val key_prev : Tsdl.Sdl.keycode

val key_top : Tsdl.Sdl.keycode

val key_bottom : Tsdl.Sdl.keycode

type ('a, 'b) node = {

id : Id.t;
parent : ('a, 'b) node option;
mutable data : 'a;
group : Canvas.group;
fold_btn : Canvas.label option;
label_group : Canvas.group;
label : 'b;
mutable selected : bool;
mutable sub_group : Canvas.group option;
mutable expanded : bool;
mutable children : ('a, 'b) node list;

}

type Events.ev +=

| Node_collapsed : (('a * ('a, 'b) node) -> bool) Events.ev
| Node_expanded : (('a0 * ('a0, 'b0) node) -> bool) Events.ev
| Node_clicked : ((Widget.button_ev * 'a1 * ('a1, 'b1) node) -> bool) Events.ev
| Node_selected : (('a2 * ('a2, 'b2) node) -> bool) Events.ev
| Node_unselected : (('a3 * ('a3, 'b3) node) -> bool) Events.ev

class ['a, 'b] tree : ?class_:string option -> ?name:string option -> ?props:Props.t option -> 
  'a
    tree_spec -> ('a, 'b) node_label -> object ... end

val tree : 
  ?class_:string ->
  ?name:string ->
  ?props:Props.t ->
  ?pack:(Widget.widget -> unit) ->
  ?selection_mode:Props.selection_mode ->
  'a tree_spec ->
  ('a, 'b) node_label ->
  ('a, 'b) tree

package stk