diff options
Diffstat (limited to 'lib/error.tcl')
| -rw-r--r-- | lib/error.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/error.tcl b/lib/error.tcl index 9b7d2294b..71dc8601d 100644 --- a/lib/error.tcl +++ b/lib/error.tcl @@ -17,7 +17,7 @@ proc error_popup {msg} { set cmd [list tk_messageBox \ -icon error \ -type ok \ - -title [append "$title: " [mc "error"]] \ + -title [mc "%s: error" $title] \ -message $msg] if {[winfo ismapped [_error_parent]]} { lappend cmd -parent [_error_parent] @@ -33,7 +33,7 @@ proc warn_popup {msg} { set cmd [list tk_messageBox \ -icon warning \ -type ok \ - -title [append "$title: " [mc "warning"]] \ + -title [mc "%s: warning" $title] \ -message $msg] if {[winfo ismapped [_error_parent]]} { lappend cmd -parent [_error_parent] |