diff options
Diffstat (limited to 'lib/tools.tcl')
| -rw-r--r-- | lib/tools.tcl | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lib/tools.tcl b/lib/tools.tcl index 00d46dd..044432e 100644 --- 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) } } |