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