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)