diff options
| -rw-r--r-- | lib/error.tcl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/error.tcl b/lib/error.tcl index d0253ae..16a2218 100644 --- a/lib/error.tcl +++ b/lib/error.tcl @@ -51,12 +51,15 @@ proc ask_popup {msg} { if {[reponame] ne {}} { append title " ([reponame])" } - return [tk_messageBox \ - -parent . \ + set cmd [list tk_messageBox \ -icon question \ -type yesno \ -title $title \ -message $msg] + if {[winfo ismapped .]} { + lappend cmd -parent . + } + eval $cmd } proc hook_failed_popup {hook msg} { |