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)