git-gui i18n: internationalize use of colon punctuation

vascool · patthoyts · commit eca963683c13 · 2016-10-03T23:39:56.000+01:00
Internationalize use of colon punctuation ':' in options window, windows
titles, database statistics window. Some languages might use a different
style, for instance French uses "User Name :" (space before colon).

Signed-off-by: Vasco Almeida &lt;vascomalmeida@sapo.pt&gt;
Signed-off-by: Pat Thoyts &lt;patthoyts@users.sourceforge.net&gt;
diff --git a/lib/branch_delete.tcl b/lib/branch_delete.tcl
@@ -128,7 +128,7 @@ method _delete {} {
 		set b [lindex $i 0]
 		set o [lindex $i 1]
 		if {[catch {git branch -D $b} err]} {
-			append failed " - $b: $err\n"
+			append failed [mc " - %s:" $b] " $err\n"
 		}
 	}
 
diff --git 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}
 	}
diff --git a/lib/error.tcl b/lib/error.tcl
@@ -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
 }
diff --git a/lib/option.tcl b/lib/option.tcl
@@ -179,7 +179,7 @@ proc do_options {} {
 			i-* {
 				regexp -- {-(\d+)\.\.(\d+)$} $type _junk min max
 				${NS}::frame $w.$f.$optid
-				${NS}::label $w.$f.$optid.l -text "$text:"
+				${NS}::label $w.$f.$optid.l -text [mc "%s:" $text]
 				pack $w.$f.$optid.l -side left -anchor w -fill x
 				tspinbox $w.$f.$optid.v \
 					-textvariable ${f}_config_new($name) \
@@ -194,7 +194,7 @@ proc do_options {} {
 			c -
 			t {
 				${NS}::frame $w.$f.$optid
-				${NS}::label $w.$f.$optid.l -text "$text:"
+				${NS}::label $w.$f.$optid.l -text [mc "%s:" $text]
 				${NS}::entry $w.$f.$optid.v \
 					-width 20 \
 					-textvariable ${f}_config_new($name)
@@ -217,7 +217,7 @@ proc do_options {} {
 			s {
 				set opts [eval [lindex $option 3]]
 				${NS}::frame $w.$f.$optid
-				${NS}::label $w.$f.$optid.l -text "$text:"
+				${NS}::label $w.$f.$optid.l -text [mc "%s:" $text]
 				if {$use_ttk} {
 					ttk::combobox $w.$f.$optid.v \
 						-textvariable ${f}_config_new($name) \
@@ -279,7 +279,7 @@ proc do_options {} {
 			[font configure $font -size]
 
 		${NS}::frame $w.global.$name
-		${NS}::label $w.global.$name.l -text "$text:"
+		${NS}::label $w.global.$name.l -text [mc "%s:" $text]
 		${NS}::button $w.global.$name.b \
 			-text [mc "Change Font"] \
 			-command [list \

Original file line number	Diff line number	Diff line change
`@@ -128,7 +128,7 @@ method _delete {} {`
`128`	`128`	`set b [lindex $i 0]`
`129`	`129`	`set o [lindex $i 1]`
`130`	`130`	`if {[catch {git branch -D $b} err]} {`
`131`		`- append failed " - $b: $err\n"`
	`131`	`+ append failed [mc " - %s:" $b] " $err\n"`
`132`	`132`	`}`
`133`	`133`	`}`
`134`	`134`
Original file line number	Diff line number	Diff line change
`@@ -54,7 +54,7 @@ proc do_stats {} {`
`54`	`54`	`set value "$value[lindex $s 2]"`
`55`	`55`	`}`
`56`	`56`
`57`		`- ${NS}::label $w.stat.l_$name -text "$label:" -anchor w`
	`57`	`+ ${NS}::label $w.stat.l_$name -text [mc "%s:" $label] -anchor w`
`58`	`58`	`${NS}::label $w.stat.v_$name -text $value -anchor w`
`59`	`59`	`grid $w.stat.l_$name $w.stat.v_$name -sticky we -padx {0 5}`
`60`	`60`	`}`
Original file line number	Diff line number	Diff line change
`@@ -113,7 +113,7 @@ proc hook_failed_popup {hook msg {is_fatal 1}} {`
`113`	`113`
`114`	`114`	`bind $w <Visibility> "grab $w; focus $w"`
`115`	`115`	`bind $w <Key-Return> "destroy $w"`
`116`		`- wm title $w [strcat "[appname] ([reponame]): " [mc "error"]]`
	`116`	`+ wm title $w [mc "%s (%s): error" [appname] [reponame]]`
`117`	`117`	`wm deiconify $w`
`118`	`118`	`tkwait window $w`
`119`	`119`	`}`