File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed
Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -8045,11 +8045,11 @@ proc doprefs {} {
80458045 grid $top .cdisp - -sticky w -pady 10
80468046 label $top .bg -padx 40 -relief sunk -background $bgcolor
80478047 button $top .bgbut -text [mc " Background" ] -font optionfont \
8048- -command [list choosecolor bgcolor 0 $top .bg background setbg]
8048+ -command [list choosecolor bgcolor {} $top .bg background setbg]
80498049 grid x $top .bgbut $top .bg -sticky w
80508050 label $top .fg -padx 40 -relief sunk -background $fgcolor
80518051 button $top .fgbut -text [mc " Foreground" ] -font optionfont \
8052- -command [list choosecolor fgcolor 0 $top .fg foreground setfg]
8052+ -command [list choosecolor fgcolor {} $top .fg foreground setfg]
80538053 grid x $top .fgbut $top .fg -sticky w
80548054 label $top .diffold -padx 40 -relief sunk -background [lindex $diffcolors 0]
80558055 button $top .diffoldbut -text [mc " Diff: old lines" ] -font optionfont \
@@ -8069,7 +8069,7 @@ proc doprefs {} {
80698069 grid x $top .hunksepbut $top .hunksep -sticky w
80708070 label $top .selbgsep -padx 40 -relief sunk -background $selectbgcolor
80718071 button $top .selbgbut -text [mc " Select bg" ] -font optionfont \
8072- -command [list choosecolor selectbgcolor 0 $top .selbgsep background setselbg]
8072+ -command [list choosecolor selectbgcolor {} $top .selbgsep background setselbg]
80738073 grid x $top .selbgbut $top .selbgsep -sticky w
80748074
80758075 label $top .cfont -text [mc " Fonts: press to choose" ]
You can’t perform that action at this time.
0 commit comments