@@ -10140,26 +10140,26 @@ proc doprefs {} {
1014010140 grid $top .cdisp - -sticky w -pady 10
1014110141 label $top .bg -padx 40 -relief sunk -background $bgcolor
1014210142 button $top .bgbut -text [mc " Background" ] -font optionfont \
10143- -command [list choosecolor bgcolor {} $top .bg background setbg]
10143+ -command [list choosecolor bgcolor {} $top .bg [mc " background" ] setbg]
1014410144 grid x $top .bgbut $top .bg -sticky w
1014510145 label $top .fg -padx 40 -relief sunk -background $fgcolor
1014610146 button $top .fgbut -text [mc " Foreground" ] -font optionfont \
10147- -command [list choosecolor fgcolor {} $top .fg foreground setfg]
10147+ -command [list choosecolor fgcolor {} $top .fg [mc " foreground" ] setfg]
1014810148 grid x $top .fgbut $top .fg -sticky w
1014910149 label $top .diffold -padx 40 -relief sunk -background [lindex $diffcolors 0]
1015010150 button $top .diffoldbut -text [mc " Diff: old lines" ] -font optionfont \
10151- -command [list choosecolor diffcolors 0 $top .diffold " diff old lines" \
10151+ -command [list choosecolor diffcolors 0 $top .diffold [mc " diff old lines" ] \
1015210152 [list $ctext tag conf d0 -foreground]]
1015310153 grid x $top .diffoldbut $top .diffold -sticky w
1015410154 label $top .diffnew -padx 40 -relief sunk -background [lindex $diffcolors 1]
1015510155 button $top .diffnewbut -text [mc " Diff: new lines" ] -font optionfont \
10156- -command [list choosecolor diffcolors 1 $top .diffnew " diff new lines" \
10156+ -command [list choosecolor diffcolors 1 $top .diffnew [mc " diff new lines" ] \
1015710157 [list $ctext tag conf dresult -foreground]]
1015810158 grid x $top .diffnewbut $top .diffnew -sticky w
1015910159 label $top .hunksep -padx 40 -relief sunk -background [lindex $diffcolors 2]
1016010160 button $top .hunksepbut -text [mc " Diff: hunk header" ] -font optionfont \
1016110161 -command [list choosecolor diffcolors 2 $top .hunksep \
10162- " diff hunk header" \
10162+ [mc " diff hunk header" ] \
1016310163 [list $ctext tag conf hunksep -foreground]]
1016410164 grid x $top .hunksepbut $top .hunksep -sticky w
1016510165 label $top .markbgsep -padx 40 -relief sunk -background $markbgcolor
@@ -10170,7 +10170,7 @@ proc doprefs {} {
1017010170 grid x $top .markbgbut $top .markbgsep -sticky w
1017110171 label $top .selbgsep -padx 40 -relief sunk -background $selectbgcolor
1017210172 button $top .selbgbut -text [mc " Select bg" ] -font optionfont \
10173- -command [list choosecolor selectbgcolor {} $top .selbgsep background setselbg]
10173+ -command [list choosecolor selectbgcolor {} $top .selbgsep [mc " background" ] setselbg]
1017410174 grid x $top .selbgbut $top .selbgsep -sticky w
1017510175
1017610176 label $top .cfont -text [mc " Fonts: press to choose" ]
0 commit comments