git-gui: Added repack database menu option, to invoke git repack.

diff --git a/git-gui b/git-gui
index 83f713535f323f605a426bf27420c1dd22940ee6..eb7329c218e9411beb0c5a57f6dd1014e5b1e1e5 100755 (executable)
--- a/git-gui
+++ b/git-gui
@@ -1276,6 +1276,14 @@ proc do_gitk {} {
        }
 }
 
+proc do_repack {} {
+       set w [new_console "repack" "Repacking the object database"]
+       set cmd [list git repack]
+       lappend cmd -a
+       lappend cmd -d
+       console_exec $w $cmd
+}
+
 proc do_quit {} {
        global gitdir ui_comm
 
@@ -1406,6 +1414,9 @@ menu .mbar.project
 .mbar.project add command -label Visualize \
        -command do_gitk \
        -font $mainfont
+.mbar.project add command -label {Repack Database} \
+       -command do_repack \
+       -font $mainfont
 .mbar.project add command -label Quit \
        -command do_quit \
        -accelerator $M1T-Q \