git-gui: Allow Tools request arguments from the user.

diff --git a/lib/tools.tcl b/lib/tools.tcl
index 00d46ddab5fcb9b872c3083959f7f9feb06e9fc9..044432e39e2d61471f2e9af169745aba183d9e31 100644 (file)
--- a/lib/tools.tcl
+++ b/lib/tools.tcl
@@ -77,7 +77,16 @@ proc tools_exec {fullname} {
                }
        }
 
-       if {[is_config_true "guitool.$fullname.confirm"]} {
+       catch { unset env(ARGS) }
+       catch { unset env(REVISION) }
+
+       if {[get_config "guitool.$fullname.revprompt"] ne {} ||
+           [get_config "guitool.$fullname.argprompt"] ne {}} {
+               set dlg [tools_askdlg::dialog $fullname]
+               if {![tools_askdlg::execute $dlg]} {
+                       return
+               }
+       } elseif {[is_config_true "guitool.$fullname.confirm"]} {
                if {[ask_popup [mc "Are you sure you want to run %s?" $fullname]] ne {yes}} {
                        return
                }
@@ -105,4 +114,6 @@ proc tools_exec {fullname} {
        unset env(GIT_GUITOOL)
        unset env(FILENAME)
        unset env(CUR_BRANCH)
+       catch { unset env(ARGS) }
+       catch { unset env(REVISION) }
 }