let update_menus ?(load_doc=false) (menubar : GMenu.menu_shell) =
main_menu_bar := Some menubar;
List.iter menubar#remove menubar#children;
let menus = menus_of_file rc_file in
List.iter
(create_menu menubar)
menus;
update_doc_menu load_doc