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