Make (ocamlgraph_gtk.Graph_gtk.DGraphContainer.Make)

Parameters

module G : Graph.Graphviz.GraphWithDotAttrs

Signature

include S with type graph = G.t and type vertex = G.V.t and type edge = G.E.t

type graph = G.t

type vertex = G.V.t

type edge = G.E.t

module Tree : Graph.Sig.G with type V.label = vertex

module GView : 
  DGraphView.S
    with type vertex = vertex
     and type edge = edge
     and type cluster = cluster

module TView : 
  DGraphView.S
    with type vertex = Tree.V.t
     and type edge = Tree.E.t
     and type cluster = cluster

type global_view = ( vertex, edge, cluster ) DGraphView.view

type tree_view = ( Tree.V.t, Tree.E.t, cluster ) DGraphView.view

class  view_container : ?packing:( GObj.widget ->
  unit ) -> ?status:status -> ?default_callbacks:bool -> mk_global_view:( 
  unit ->
  global_view ) -> mk_tree_view:( depth_backward:int ->
  depth_forward:int ->
  Gtk.widget Gtk.obj ->
  vertex ->
  tree_view ) -> vertex option -> [ vertex,
                                    edge,
                                    cluster,
                                    Tree.V.t,
                                    Tree.E.t,
                                    cluster ]
                                    view_container_type

val from_graph : 
  ?packing:( GObj.widget -> unit ) ->
  ?status:status ->
  ?default_callbacks:bool ->
  ?mk_global_view:
    ( ( G.V.t, G.E.t, cluster ) Graph.DGraphModel.abstract_model ->
      global_view ) ->
  ?mk_tree_view:
    ( ( Tree.V.t, Tree.E.t, cluster ) Graph.DGraphModel.abstract_model ->
      tree_view ) ->
  ?root:G.vertex ->
  G.t ->
  view_container

val from_graph_with_commands : 
  ?packing:( GObj.widget -> unit ) ->
  ?status:status ->
  ?default_callbacks:bool ->
  ?mk_global_view:
    ( ( G.V.t, G.E.t, cluster ) Graph.DGraphModel.abstract_model ->
      global_view ) ->
  ?mk_tree_view:
    ( ( Tree.V.t, Tree.E.t, cluster ) Graph.DGraphModel.abstract_model ->
      tree_view ) ->
  ?root:G.vertex ->
  G.t ->
  GPack.table * view_container