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