let services_view model =
  let delay_node v = not v.Service.is_root in
  let delay_edge e = match Service.CallG.E.label e with
    | Service.Inter_services | Service.Both -> false
    | Service.Inter_functions -> true
  in
  let view = View.GView.view ~aa:true ~delay_node ~delay_edge model in
  view#set_zoom_padding 0.025;
  (* not very nice *)
  ignore (new services_view view);
  view#connect_highlighting_event ();
  ignore $ view#set_center_scroll_region true;
  view