git-gui: Allow users to run fsck-objects from the gui.

diff --git a/git-gui b/git-gui
index d5738baf109d16eab62e1966e6192a8b35c11a38..2aa82781e95fa742f4b6526f8e251d0e2f2f9ee8 100755 (executable)
--- a/git-gui
+++ b/git-gui
@@ -1954,6 +1954,15 @@ proc do_repack {} {
        console_exec $w $cmd
 }
 
+proc do_fsck_objects {} {
+       set w [new_console "verify" "Verifying the object database"]
+       set cmd [list git fsck-objects]
+       lappend cmd --full
+       lappend cmd --cache
+       lappend cmd --strict
+       console_exec $w $cmd
+}
+
 set is_quitting 0
 
 proc do_quit {} {
@@ -2610,6 +2619,10 @@ if {!$single_commit} {
                -command do_repack \
                -font font_ui
 
+       .mbar.project add command -label {Verify Database} \
+               -command do_fsck_objects \
+               -font font_ui
+
        if {$tcl_platform(platform) eq {windows}} {
                .mbar.project add command \
                        -label {Create Desktop Icon} \