functor (Cb : SigCb->
  sig
    val open_dot_file :
      Cb.t_env ->
      GnoCanvas.canvas -> ?dot_cmd:string -> string -> ViewGraph.t_graph
    val clear : GnoCanvas.canvas -> ViewGraph.t_graph -> unit
  end