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 {} {
8045
8045
grid $top .cdisp - -sticky w -pady 10
8046
8046
label $top .bg -padx 40 -relief sunk -background $bgcolor
8047
8047
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]
8049
8049
grid x $top .bgbut $top .bg -sticky w
8050
8050
label $top .fg -padx 40 -relief sunk -background $fgcolor
8051
8051
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]
8053
8053
grid x $top .fgbut $top .fg -sticky w
8054
8054
label $top .diffold -padx 40 -relief sunk -background [lindex $diffcolors 0]
8055
8055
button $top .diffoldbut -text [mc " Diff: old lines" ] -font optionfont \
@@ -8069,7 +8069,7 @@ proc doprefs {} {
8069
8069
grid x $top .hunksepbut $top .hunksep -sticky w
8070
8070
label $top .selbgsep -padx 40 -relief sunk -background $selectbgcolor
8071
8071
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]
8073
8073
grid x $top .selbgbut $top .selbgsep -sticky w
8074
8074
8075
8075
label $top .cfont -text [mc " Fonts: press to choose" ]
You can’t perform that action at this time.
0 commit comments