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)); ])