# The menus for the top menubar(s)

# First, set up the more or less universal ones that we want
# on all toplevels
proc menubar_menus {topwin} {
  global cvscfg
  global colorglb
  global cvsmenu
  global usermenu
  global execmenu
  global bookmarks
  global git_log_opt
  global ingit

  gen_log:log T "ENTER"
  set startdir "[pwd]"

  if {[winfo exists $topwin.menubar]} {
    destroy $topwin.menubar
  }
  menu $topwin.menubar

  $topwin.menubar add cascade -label "TkRev" -menu [menu $topwin.menubar.about]
  $topwin.menubar.about configure
  about_menus $topwin.menubar.about

  $topwin.menubar add cascade -label "File" -menu [menu $topwin.menubar.file] -underline 0
  $topwin.menubar.file configure
  if {$topwin eq ".workdir"} {
    $topwin.menubar add cascade -label "Options" -menu [menu $topwin.menubar.options] -underline 0
    $topwin.menubar.options configure
  }
  # Add the git tools menu to all main windows. It will be hidden if not needed.
  git_tools_menu $topwin

  if {$topwin eq ".workdir" || $topwin eq ".modbrowse"} {
    $topwin.menubar add cascade -label "Go" -menu [menu $topwin.menubar.goto] -underline 0
    $topwin.menubar.goto configure
    $topwin.menubar.goto add command -label "Go Home" \
        -command {change_dir $cvscfg(home)}
    $topwin.menubar.goto add command -label "Add Bookmark" \
        -command add_bookmark
    $topwin.menubar.goto add command -label "Delete Bookmark" \
        -command delete_bookmark_dialog
    $topwin.menubar.goto add separator
    foreach mark [lsort [array names bookmarks]] {
      # Backward compatibility.  Value used to be a placeholder, is now a revsystem type
      if {$bookmarks($mark) == "t"} {set bookmarks($mark) ""}
      $topwin.menubar.goto add command -label "$mark $bookmarks($mark)" \
          -command "change_dir \"$mark\""
    }
  }
  # Have to do this after the apple menu
  $topwin configure -menu $topwin.menubar

  $topwin.menubar.file add command -label "Shell" -underline 0 \
      -command { exec::new $cvscfg(shell) }
  $topwin.menubar.file add separator
  $topwin.menubar.file add command -label Exit -underline 1 \
      -command { exit_cleanup 1 }
}

# The Working Directory menubar
proc workdir_menus {topwin} {
  global cvscfg
  global colorglb
  global cvsmenu
  global usermenu
  global execmenu
  global bookmarks
  global git_log_opt

  gen_log:log T "ENTER"

  # File menu
  $topwin.menubar.file insert 1 command -label "Browse Modules" -underline 0 \
      -command modbrowse_run
  #$topwin.menubar.file add separator
  $topwin.menubar.file insert 1 command -label "Cleanup Directory" -underline 4 \
      -command workdir_cleanup
  $topwin.menubar.file insert 1 command -label "Make New Directory" -underline 0 \
      -command { file_input_and_do "New Directory" workdir_newdir}
  $topwin.menubar.file insert 1 command -label "Print Selected File" -underline 0 \
      -command { workdir_print_file  [workdir_list_files ] }
  $topwin.menubar.file insert 1 command -label "Open Selection" -underline 0 \
      -command { workdir_edit_file [workdir_list_files] }

  set filemenu_idx [$topwin.menubar index "File"]
  menu $topwin.menubar.reports
  $topwin.menubar insert [expr {$filemenu_idx + 1}] cascade -label "Reports" \
      -menu $topwin.menubar.reports -underline 2

  # CVS - create it now, but place it later
  menu $topwin.menubar.cvs
  $topwin.menubar.cvs add command -label "Update" -underline 0 \
      -command { \
      cvs_update {BASE} {Normal} {Remove} {recurse} {prune} {No} { } [workdir_list_files] }
  $topwin.menubar.cvs add command -label "Update with Options" -underline 13 \
      -command cvs_update_options
  $topwin.menubar.cvs add command -label "Commit/Checkin" -underline 5 \
      -command cvs_commit_dialog
  $topwin.menubar.cvs add command -label "Revert" -underline 3 \
      -command cvs_revert
  $topwin.menubar.cvs add command -label "Add Files" -underline 0 \
      -command { add_dialog [workdir_list_files] }
  $topwin.menubar.cvs add command -label "Add Recursively" \
      -command { addir_dialog [workdir_list_files] }
  $topwin.menubar.cvs add command -label "Remove Files" -underline 0 \
      -command { subtract_dialog [workdir_list_files] }
  $topwin.menubar.cvs add command -label "Remove Recursively" \
      -command { subtractdir_dialog [workdir_list_files] }
  $topwin.menubar.cvs add command -label "Tag" -underline 0 \
      -command { tag_dialog }
  $topwin.menubar.cvs add command -label "Branch" -underline 0 \
      -command { branch_dialog }
  $topwin.menubar.cvs add command -label "Join (Merge) Directory" \
      -underline 0 -command { cvs_directory_merge }
  $topwin.menubar.cvs add separator
  $topwin.menubar.cvs add command -label "Release" \
      -command { release_dialog [workdir_list_files] }

  # SVN - create it now, but place it later
  menu $topwin.menubar.svn
  $topwin.menubar.svn add command -label "Update" -underline 0 \
      -command {svn_update [workdir_list_files]}
  $topwin.menubar.svn add command -label "Resolve (Un-mark Conflict)" \
      -command {svn_resolve [workdir_list_files]}
  $topwin.menubar.svn add command -label "Commit/Checkin" -underline 0 \
      -command svn_commit_dialog
  $topwin.menubar.svn add command -label "Revert" -underline 3 \
      -command svn_revert
  $topwin.menubar.svn add command -label "Add Files" -underline 0 \
      -command { add_dialog [workdir_list_files] }
  $topwin.menubar.svn add command -label "Remove Files" -underline 0 \
      -command { subtract_dialog [workdir_list_files] }
  $topwin.menubar.svn add command -label "Tag" -underline 0 \
      -command { tag_dialog }
  $topwin.menubar.svn add command -label "Branch" -underline 0 \
      -command { branch_dialog }

  # RCS - create it now, but place it later
  menu $topwin.menubar.rcs
  $topwin.menubar.rcs add command -label "Checkout" -underline 6 \
      -command { rcs_checkout [workdir_list_files] }
  $topwin.menubar.rcs add command -label "Checkin" -underline 6 \
      -command { rcs_commit_dialog [workdir_list_files] }
  $topwin.menubar.rcs add command -label "Revert" -underline 3 \
      -command rcs_revert

  # GIT - create it now, but place it later
  menu $topwin.menubar.git
  $topwin.menubar.git add command -label "Checkout/Update" -underline 6 \
      -command {git_checkout [workdir_list_files]}
  $topwin.menubar.git add command -label "Update with Options" -underline 13 \
      -command { git_update_options }
  $topwin.menubar.git add command -label "Commit/Checkin" -underline 5 \
      -command git_commit_dialog
  $topwin.menubar.git add command -label "Revert/Reset" -underline 3 \
      -command git_reset
  $topwin.menubar.git add command -label "Add Files" -underline 0 \
      -command { add_dialog [workdir_list_files] }
  $topwin.menubar.git add command -label "Remove Files" -underline 0 \
      -command { subtract_dialog [workdir_list_files] }
  $topwin.menubar.git add command -label "Tag" -underline 0 \
      -command { tag_dialog }
  $topwin.menubar.git add command -label "Branch" -underline 0 \
      -command { branch_dialog }

  # Import menu for plain directories
  menu $topwin.menubar.import
  $topwin.menubar.import add command -label "Import CWD into SVN" \
      -command { svn_import_run }
  $topwin.menubar.import add command -label "Import CWD into CVS" \
      -command { cvs_import_setup }
  $topwin.menubar.import add command -label "Import CWD into an Existing CVS Module" \
      -command { cvs_subimport_setup}

  # Status and log
  $topwin.menubar.reports add command -label "Check Directory" -underline 0
  $topwin.menubar.reports add cascade -label "Status" -underline 0 \
      -menu $topwin.menubar.reports.status_detail
  menu $topwin.menubar.reports.status_detail
  menu $topwin.menubar.reports.log_detail
  $topwin.menubar.reports.status_detail add command -label "Terse"
  $topwin.menubar.reports.status_detail add command -label "Summary"
  $topwin.menubar.reports.status_detail add command -label "Verbose"
  $topwin.menubar.reports add cascade -label "Log" -underline 0 \
      -menu $topwin.menubar.reports.log_detail
  $topwin.menubar.reports.log_detail add command -label "Latest"
  $topwin.menubar.reports.log_detail add command -label "Summary"
  $topwin.menubar.reports.log_detail add command -label "Verbose"

  $topwin.menubar.reports add command -label "Info" -underline 0
  $topwin.menubar.reports add separator
  $topwin.menubar.reports add checkbutton -label "Report Unknown Files" \
      -variable cvscfg(status_filter) -onvalue false -offvalue true
  $topwin.menubar.reports add checkbutton -label "Report Recursively" \
      -variable cvscfg(recurse) -onvalue true -offvalue false

  $topwin.menubar.options add checkbutton -label "Show hidden files" \
      -variable cvscfg(allfiles) -onvalue true -offvalue false \
      -command setup_dir
  $topwin.menubar.options add checkbutton -label "Automatic directory status" \
      -variable cvscfg(auto_status) -onvalue true -offvalue false
  $topwin.menubar.options add checkbutton -label "Confirmation Dialogs" \
      -variable cvscfg(confirm_prompt) -onvalue true -offvalue false
  $topwin.menubar.options add separator
  $topwin.menubar.options add checkbutton -label "Status Column" \
      -variable cvscfg(showstatcol) -onvalue true -offvalue false \
      -command "DirCanvas:displaycolumns $topwin.main.tree"
  $topwin.menubar.options add checkbutton -label "Date Column" \
      -variable cvscfg(showdatecol) -onvalue true -offvalue false \
      -command "DirCanvas:displaycolumns $topwin.main.tree"
  $topwin.menubar.options add checkbutton -label "Revision Column" \
      -variable cvscfg(showwrevcol) -onvalue true -offvalue false \
      -command "DirCanvas:displaycolumns $topwin.main.tree"
  $topwin.menubar.options add checkbutton -label "Author Column" \
      -variable cvscfg(showeditcol) -onvalue true -offvalue false \
      -command "DirCanvas:displaycolumns $topwin.main.tree"
  $topwin.menubar.options add separator
  $topwin.menubar.options add checkbutton -label "Git Detailed Status" \
      -variable cvscfg(gitdetail) -onvalue true -offvalue false \
      -command { setup_dir }

  # User-defined commands
  if { [info exists cvsmenu] || \
        [info exists usermenu] || \
        [info exists execmenu]} {
    .workdir.menubar add cascade -label "User Defined" -menu [menu .workdir.menubar.user] -underline 0
    .workdir.menubar.user configure
    gen_log:log T "Adding user defined menu"
    if {[info exists cvsmenu]} {
      foreach item [array names cvsmenu] {
        $topwin.menubar.user add command -label $item \
            -command "eval cvs_usercmd $cvsmenu($item) \[workdir_list_files\]"
      }
    }
    if {[info exists usermenu]} {
      foreach item [array names usermenu] {
        $topwin.menubar.user add command -label $item \
            -command "eval cvs_catchcmd $usermenu($item) \[workdir_list_files\]"
      }
    }
    if {[info exists execmenu]} {
      foreach item [array names execmenu] {
        $topwin.menubar.user add command -label $item \
            -command "eval cvs_execcmd $execmenu($item) \[workdir_list_files\]"
      }
    }
  }

  $topwin.menubar.options add separator
  $topwin.menubar.options add checkbutton -label "Tracing On/Off" \
      -variable cvscfg(logging) -onvalue true -offvalue false \
      -command log_toggle
  $topwin.menubar.options add command -label "Save Options" -underline 0 \
      -command save_options

  gen_log:log T "LEAVE"
}

# Actions and preferences for Git
proc git_branch_menu {topwin files} {
  global cvscfg
  global colorglb
  global git_log_opt

  git_tools_menu $topwin
  $topwin.menubar.gittools add cascade -label "Git log options" -menu [menu $topwin.menubar.gittools.logopts]
  $topwin.menubar.gittools configure
  set all_gitlog_opts [list  "--first-parent" "--full-history" "--sparse" "--no-merges"]
  foreach o $all_gitlog_opts {
    if {$o in $cvscfg(gitlog_opts)} {
      set git_log_opt($o) 1
    } else {
      set git_log_opt($o) 0
    }
  }
  foreach opt $all_gitlog_opts {
    $topwin.menubar.gittools.logopts add checkbutton -label $opt \
        -variable git_log_opt($opt) -onvalue 1 -offvalue 0 \
        -command {
      global cvscfg
      global git_log_opt

      gen_log:log D "cvscfg(gitlog_opts) $cvscfg(gitlog_opts)"
      set cvscfg(gitlog_opts) ""
      foreach go [array names git_log_opt] {
        if {$git_log_opt($go)} {
          append cvscfg(gitlog_opts) "$go "
        }
      }
      gen_log:log D "cvscfg(gitlog_opts) $cvscfg(gitlog_opts)"
    }
  }
  $topwin.menubar.gittools add cascade -label "Branches groups" -menu [menu $topwin.menubar.gittools.branches]
  $topwin.menubar.gittools.branches configure
  $topwin.menubar.gittools.branches add radiobutton -label " File-specific" \
      -variable cvscfg(gitbranchgroups) -value "F"
  $topwin.menubar.gittools.branches add radiobutton -label " All Local" \
      -variable cvscfg(gitbranchgroups) -value "FL"
  $topwin.menubar.gittools.branches add radiobutton -label " Local + Remote" \
      -variable cvscfg(gitbranchgroups) -value "FLR"
}

# The Help menu
proc help_menu {topwin} {
  global colorglb

  gen_log:log T "ENTER ($topwin)"
 
  # Help menu
  $topwin.menubar add cascade -label "Help" -menu $topwin.menubar.help -underline 0

  menu $topwin.menubar.help
  $topwin.menubar.help add command -label "Help on TkRev" -command "table_of_contents $topwin"
}

# The Module Browser menubars
proc modbrowse_menus {topwin} {
  global cvscfg
  global colorglb
  global cvs
  global logclass

  # File menu
  $topwin.menubar.file insert 1 command -label "Browse Working Directory" -underline 0 \
      -command workdir_setup

  menu $topwin.menubar.cvs
  $topwin.menubar.cvs add command -label "CVS Checkout" \
      -command { dialog_cvs_checkout $cvscfg(cvsroot) $modbrowse_module}
  $topwin.menubar.cvs add command -label "CVS Export" \
      -command { dialog_cvs_export $cvscfg(cvsroot) $modbrowse_module}
  $topwin.menubar.cvs add command -label "Tag Module" -underline 0 \
      -command { rtag_dialog $cvscfg(cvsroot) $modbrowse_module "tag" }
  $topwin.menubar.cvs add command -label "Branch Tag Module" -underline 0 \
      -command { rtag_dialog $cvscfg(cvsroot) $modbrowse_module "branch" }
  $topwin.menubar.cvs add command -label "Make Patch File" -underline 0 \
      -command { dialog_cvs_patch $cvscfg(cvsroot) $modbrowse_module 0 }
  $topwin.menubar.cvs add command -label "View Patch Summary" -underline 0 \
      -command { dialog_cvs_patch $cvscfg(cvsroot) $modbrowse_module 1 }
  $topwin.menubar.cvs add separator
  $topwin.menubar.cvs add command -label "Vendor Merge" -underline 0 \
      -command {merge_run $modbrowse_module}
  $topwin.menubar.cvs add separator
  $topwin.menubar.cvs add command -label "Show My Checkouts" -underline 0 \
      -command {cvs_history me ""}
  $topwin.menubar.cvs add command -label "Show Checkouts of Selected Module" -underline 0 \
      -command {cvs_history all $modbrowse_module}
  $topwin.menubar.cvs add command -label "Show All Checkouts" -underline 0 \
      -command {cvs_history all ""}

  menu $topwin.menubar.svn
  $topwin.menubar.svn add command -label "SVN Checkout" \
      -command { dialog_svn_checkout $cvscfg(svnroot) $modbrowse_path checkout}
  $topwin.menubar.svn add command -label "SVN Export" \
      -command { dialog_svn_checkout $cvscfg(svnroot) $modbrowse_path export}
  $topwin.menubar.svn add command -label "Tag Module" -underline 0 \
      -command { dialog_svn_tag $cvscfg(svnroot) $modbrowse_path "tags" }
  $topwin.menubar.svn add command -label "Branch Module" -underline 0 \
      -command { dialog_svn_tag $cvscfg(svnroot) $modbrowse_path "branches" }
  $topwin.menubar.svn add command -label "Make Patch File" -underline 0 \
      -command { dialog_svn_patch $cvscfg(svnroot) $modbrowse_path $selB_path 0 }
  $topwin.menubar.svn add command -label "View Patch Summary" -underline 0 \
      -command { dialog_svn_patch $cvscfg(svnroot) $modbrowse_path $selB_path 1 }

  menu $topwin.menubar.git
  $topwin.menubar.git add command -label "Git Clone" \
      -command { dialog_git_clone $cvscfg(gitroot) $modbrowse_path }

  menu $topwin.menubar.options
  $topwin.menubar.options add checkbutton -label "Group Aliases in a Folder (CVS)" \
      -variable cvscfg(aliasfolder) -onvalue true -offvalue false \
      -command {
    $topwin.treeframe.pw delete [$topwin.treeframe.pw children {}]
    cvs_modbrowse_tree [lsort [array names modval]] "/"
  }
  $topwin.menubar.options add separator
  $topwin.menubar.options add checkbutton -label "Tracing On/Off" \
      -variable cvscfg(logging) -onvalue true -offvalue false \
      -command log_toggle
}

proc about_menus {aboutmenu} {

  $aboutmenu add command -label "About TkRev" \
      -command aboutbox
  $aboutmenu add command -label "About CVS SVN RCS GIT" \
      -command {help_cvs_version 1}
  $aboutmenu add command -label "About Wish" \
      -command {wish_version}
  $aboutmenu add separator
  $aboutmenu add command -label "Preferences" \
      -command {prefdialog}
  $aboutmenu add command -label Exit -underline 1 \
      -command { exit_cleanup 1 }
}

proc git_tools_menu {topwin} {
  global colorglb

  if {[winfo exists  $topwin.menubar.gittools]} {
    return
  }
  $topwin.menubar add cascade -label "Git Tools" -menu [menu $topwin.menubar.gittools]
  $topwin.menubar.gittools configure
  $topwin.menubar.gittools add command -label "gitk" -state disabled
  $topwin.menubar.gittools add command -label "git-gui" -state disabled
  set ok_gitk 1
  set ok_gitgui 1
  if {[auto_execok gitk] eq ""} {
    set ok_gitk 0
  }
  if {[auto_execok git-gui] eq ""} {
    set ok_gitgui 0
  }
  switch -glob $topwin {
    ".workdir" {
       if {$ok_gitk} {
         $topwin.menubar.gittools entryconfigure "gitk" -state normal \
            -command { cvs_execcmd gitk --all [workdir_list_files] }
       }
       if {$ok_gitgui} {
         $topwin.menubar.gittools entryconfigure "git-gui" -state normal \
            -command { cvs_execcmd git-gui --all [workdir_list_files] }
       }
    }
    ".branch_diagram*" {
       regexp {(\d*)$} $topwin all my_idx
       if {$ok_gitk} {
         $topwin.menubar.gittools entryconfigure "gitk" -state normal \
            -command "cvs_execcmd gitk --all [set ::branch_diagram::$my_idx\::filename]"
       }
       if {$ok_gitgui} {
         $topwin.menubar.gittools entryconfigure "git-gui" -state normal \
            -command "cvs_execcmd git-gui --all [set ::branch_diagram::$my_idx\::filename]"
       }
    }
    ".annotate*" {
       regexp {(\d*)$} $topwin all my_idx
       if {$ok_gitk} {
         $topwin.menubar.gittools entryconfigure "gitk" -state normal \
            -command "cvs_execcmd gitk --all [set ::annotate::$my_idx\::file]"
       }
       if {$ok_gitgui} {
         $topwin.menubar.gittools entryconfigure "git-gui" -state normal \
            -command "cvs_execcmd git-gui --all [set ::annotate::$my_idx\::file]"
       }
    }
  }
}

