stk 0.1.0 · OCaml Package

inherit Stk.Canvas.canvas

val mutable text_collapsed_width : int

val nodes_mutex : Lwt_mutex.t

val mutable nodes : ('a, 'b) node IMap.t

val mutable roots : ('a, 'b) node list

val mutable selection : ISet.t

method selection_mode : Stk.Props.selection_mode

method set_selection_mode : Stk.Props.selection_mode -> unit

method selected_nodes : ('a, 'b) node list

method private connect_node_keys : ('a, 'b) node -> unit

method node_grab_focus : ('a, 'b) node -> bool

method private mk_node : ?parent:('a, 'b) node ->
  'a ->
  Stk.Canvas.group ->
  ('a, 'b) node

method add_root : ('a, 'b) node -> unit

method set_roots : 'a list -> unit

method private update_coords : unit

method switch_state : ('a, 'b) node -> bool

method collapse : ('a, 'b) node -> unit

method expand : ('a, 'b) node -> unit

method unselect_all : bool

method select_node : ('a, 'b) node -> bool

method unselect_node : ('a, 'b) node -> bool

method select_or_unselect_node : ('a, 'b) node -> bool

method on_label_clicked : ('a, 'b) node -> Stk.Widget.button_ev -> bool

method private rec_remove_node : ('a, 'b) node -> unit

method remove_node : ('a, 'b) node -> unit

method remove_nodes : ('a, 'b) node list -> unit

method node_label : ('a, 'b) node -> 'b

method private update_node_display : ('a, 'b) node -> unit

method update_node : ?with_subs:bool -> ('a, 'b) node -> 'a -> unit

method connect_node_collapsed : (('a * ('a, 'b) node) -> bool) ->
  Stk.Events.callback_id

method connect_node_expanded : (('a * ('a, 'b) node) -> bool) ->
  Stk.Events.callback_id

method connect_node_clicked : ((Stk.Widget.button_ev * 'a * ('a, 'b) node) ->
                                bool) ->
  Stk.Events.callback_id

method connect_node_selected : (('a * ('a, 'b) node) -> bool) ->
  Stk.Events.callback_id

method connect_node_unselected : (('a * ('a, 'b) node) -> bool) ->
  Stk.Events.callback_id

package stk