|
|
|
|
@ -10140,26 +10140,26 @@ proc doprefs {} {
@@ -10140,26 +10140,26 @@ proc doprefs {} {
|
|
|
|
|
grid $top.cdisp - -sticky w -pady 10 |
|
|
|
|
label $top.bg -padx 40 -relief sunk -background $bgcolor |
|
|
|
|
button $top.bgbut -text [mc "Background"] -font optionfont \ |
|
|
|
|
-command [list choosecolor bgcolor {} $top.bg background setbg] |
|
|
|
|
-command [list choosecolor bgcolor {} $top.bg [mc "background"] setbg] |
|
|
|
|
grid x $top.bgbut $top.bg -sticky w |
|
|
|
|
label $top.fg -padx 40 -relief sunk -background $fgcolor |
|
|
|
|
button $top.fgbut -text [mc "Foreground"] -font optionfont \ |
|
|
|
|
-command [list choosecolor fgcolor {} $top.fg foreground setfg] |
|
|
|
|
-command [list choosecolor fgcolor {} $top.fg [mc "foreground"] setfg] |
|
|
|
|
grid x $top.fgbut $top.fg -sticky w |
|
|
|
|
label $top.diffold -padx 40 -relief sunk -background [lindex $diffcolors 0] |
|
|
|
|
button $top.diffoldbut -text [mc "Diff: old lines"] -font optionfont \ |
|
|
|
|
-command [list choosecolor diffcolors 0 $top.diffold "diff old lines" \ |
|
|
|
|
-command [list choosecolor diffcolors 0 $top.diffold [mc "diff old lines"] \ |
|
|
|
|
[list $ctext tag conf d0 -foreground]] |
|
|
|
|
grid x $top.diffoldbut $top.diffold -sticky w |
|
|
|
|
label $top.diffnew -padx 40 -relief sunk -background [lindex $diffcolors 1] |
|
|
|
|
button $top.diffnewbut -text [mc "Diff: new lines"] -font optionfont \ |
|
|
|
|
-command [list choosecolor diffcolors 1 $top.diffnew "diff new lines" \ |
|
|
|
|
-command [list choosecolor diffcolors 1 $top.diffnew [mc "diff new lines"] \ |
|
|
|
|
[list $ctext tag conf dresult -foreground]] |
|
|
|
|
grid x $top.diffnewbut $top.diffnew -sticky w |
|
|
|
|
label $top.hunksep -padx 40 -relief sunk -background [lindex $diffcolors 2] |
|
|
|
|
button $top.hunksepbut -text [mc "Diff: hunk header"] -font optionfont \ |
|
|
|
|
-command [list choosecolor diffcolors 2 $top.hunksep \ |
|
|
|
|
"diff hunk header" \ |
|
|
|
|
[mc "diff hunk header"] \ |
|
|
|
|
[list $ctext tag conf hunksep -foreground]] |
|
|
|
|
grid x $top.hunksepbut $top.hunksep -sticky w |
|
|
|
|
label $top.markbgsep -padx 40 -relief sunk -background $markbgcolor |
|
|
|
|
@ -10170,7 +10170,7 @@ proc doprefs {} {
@@ -10170,7 +10170,7 @@ proc doprefs {} {
|
|
|
|
|
grid x $top.markbgbut $top.markbgsep -sticky w |
|
|
|
|
label $top.selbgsep -padx 40 -relief sunk -background $selectbgcolor |
|
|
|
|
button $top.selbgbut -text [mc "Select bg"] -font optionfont \ |
|
|
|
|
-command [list choosecolor selectbgcolor {} $top.selbgsep background setselbg] |
|
|
|
|
-command [list choosecolor selectbgcolor {} $top.selbgsep [mc "background"] setselbg] |
|
|
|
|
grid x $top.selbgbut $top.selbgsep -sticky w |
|
|
|
|
|
|
|
|
|
label $top.cfont -text [mc "Fonts: press to choose"] |
|
|
|
|
|
Christian Stimming
16 years ago
committed by