method mode_menus =
      match mode with
        None -> []
      | Some m -> m#menus