let main (window: Design.main_window_extension_points) =
  ignore
    ((window#menu_manager ())#add_plugin
       [ Menu_manager.Menubar(None"Show callgraph"),
         (fun () -> graph_window window) ])