let show_graph_win _a =
let g = Register.get () in
try
let model = Model.from_graph g in
let window, view = create_graph_win "Call Graph" model g in
window#show ();
view#adapt_zoom ()
with DGraphModel.DotError cmd ->
GToolbox.message_box "Error: "
(Printf.sprintf "%s failed\n" cmd)