git-gui: Set a proper title on our revert confirm dialog box.

Signed-off-by: Shawn O. Pearce <spearce@spearce.org>

diff --git a/git-gui b/git-gui
index 3845cf7168900d5f01e83a6e4d8e550a7a3d4029..09fc40aaf8e24059f8d2d3632a94011b7407c434 100755 (executable)
--- a/git-gui
+++ b/git-gui
@@ -2387,6 +2387,7 @@ proc do_include_all {} {
 }
 
 proc revert_helper {txt paths} {
 }
 
 proc revert_helper {txt paths} {

+       global gitdir appname

        global file_states current_diff
 
        if {![lock_index begin-update]} return
        global file_states current_diff
 
        if {![lock_index begin-update]} return


@@ -2419,13 +2420,17 @@ proc revert_helper {txt paths} {
                set s "these $n files"
        }
 
                set s "these $n files"
        }
 

+       set reponame [lindex [file split \
+               [file normalize [file dirname $gitdir]]] \
+               end]
+

        set reply [tk_dialog \
                .confirm_revert \
        set reply [tk_dialog \
                .confirm_revert \

-               "title" \
+               "$appname ($reponame)" \

                "Revert unincluded changes in $s?
 
 Any unincluded changes will be permanently lost by the revert." \
                "Revert unincluded changes in $s?
 
 Any unincluded changes will be permanently lost by the revert." \

-               questhead \
+               question \

                1 \
                {Do Nothing} \
                {Revert Changes} \
                1 \
                {Do Nothing} \
                {Revert Changes} \