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