diff options
| author | Pat Thoyts <patthoyts@users.sourceforge.net> | 2016-10-03 23:40:50 +0100 |
|---|---|---|
| committer | Pat Thoyts <patthoyts@users.sourceforge.net> | 2016-10-03 23:40:50 +0100 |
| commit | 52f2445d5c70a204f614fd83cf98a27359dff04c (patch) | |
| tree | 56fdf799654d24e1fcdc49658e9db215d54d45ba /lib/error.tcl | |
| parent | 99ba48e397995a4b06a57f78e5611a29d239e5ea (diff) | |
| parent | 9360fc22eaa5e8db33f1806a8e23afb83369a2f5 (diff) | |
| download | git-52f2445d5c70a204f614fd83cf98a27359dff04c.tar.gz git-52f2445d5c70a204f614fd83cf98a27359dff04c.tar.xz | |
Merge branch 'va/i18n_2' into pu
Diffstat (limited to 'lib/error.tcl')
| -rw-r--r-- | lib/error.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/error.tcl b/lib/error.tcl index c0fa69af5..8968a57f3 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] @@ -77,7 +77,7 @@ proc hook_failed_popup {hook msg {is_fatal 1}} { wm withdraw $w ${NS}::frame $w.m - ${NS}::label $w.m.l1 -text "$hook hook failed:" \ + ${NS}::label $w.m.l1 -text [mc "%s hook failed:" $hook] \ -anchor w \ -justify left \ -font font_uibold @@ -113,7 +113,7 @@ proc hook_failed_popup {hook msg {is_fatal 1}} { bind $w <Visibility> "grab $w; focus $w" bind $w <Key-Return> "destroy $w" - wm title $w [strcat "[appname] ([reponame]): " [mc "error"]] + wm title $w [mc "%s (%s): error" [appname] [reponame]] wm deiconify $w tkwait window $w } |