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/database.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/database.tcl')
| -rw-r--r-- | lib/database.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/database.tcl b/lib/database.tcl index 1f187ed28..85783081e 100644 --- a/lib/database.tcl +++ b/lib/database.tcl @@ -54,7 +54,7 @@ proc do_stats {} { set value "$value[lindex $s 2]" } - ${NS}::label $w.stat.l_$name -text "$label:" -anchor w + ${NS}::label $w.stat.l_$name -text [mc "%s:" $label] -anchor w ${NS}::label $w.stat.v_$name -text $value -anchor w grid $w.stat.l_$name $w.stat.v_$name -sticky we -padx {0 5} } @@ -63,7 +63,7 @@ proc do_stats {} { bind $w <Visibility> "grab $w; focus $w.buttons.close" bind $w <Key-Escape> [list destroy $w] bind $w <Key-Return> [list destroy $w] - wm title $w [append "[appname] ([reponame]): " [mc "Database Statistics"]] + wm title $w [mc "%s (%s): Database Statistics" [appname] [reponame]] wm deiconify $w tkwait window $w } |