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