let show_graph_win _a =
  let cg_name = Options.Filename.get () in
  let cg_name =
    if cg_name <> "" then cg_name
    else Filename.temp_file "framaC_cg_" ".dot"
  in
  Options.Filename.set cg_name;

  Format.printf "[call graph] preparing the file %s " cg_name;
  !Db.Syntactic_Callgraph.dump ();
  Format.printf "done.";

  try
    let model = ConcreteModel.read_dot cg_name in
    let window, view = create_graph_win "Call Graph" model in
    window#show ();
    view#adapt_zoom ()
  with ConcreteModel.DotError cmd ->
    GToolbox.message_box "Error" 
      (Printf.sprintf "%s failed\n" cmd)