@@ -6831,16 +6831,18 @@ proc drawtags {id x xt y1} {
68316831 } else {
68326832 # draw a head or other ref
68336833 if {[ incr nheads -1] >= 0} {
6834- set col $headbgcolor
6834+ set refoutlinecol $headoutlinecolor
6835+ set reffillcol $headbgcolor
68356836 if {$tag eq $mainhead } {
68366837 set font mainfontbold
68376838 }
68386839 } else {
6839- set col " #ddddff"
6840+ set refoutlinecol black
6841+ set reffillcol " #ddddff"
68406842 }
68416843 set xl [ expr {$xl - $delta /2}]
68426844 $canv create polygon $x $yt $xr $yt $xr $yb $x $yb \
6843- -width 1 -outline black -fill $col -tags tag.$id
6845+ -width 1 -outline $refoutlinecol -fill $reffillcol -tags tag.$id
68446846 if {[ regexp {^(remotes/[^/]*/|remotes/)} $tag match remoteprefix] } {
68456847 set rwid [ font measure mainfont $remoteprefix ]
68466848 set xi [ expr {$x + 1}]
@@ -6850,7 +6852,8 @@ proc drawtags {id x xt y1} {
68506852 -width 0 -fill $remotebgcolor -tags tag.$id
68516853 }
68526854 }
6853- set t [ $canv create text $xl $y1 -anchor w -text $tag -fill $headfgcolor \
6855+ set textfgcolor [ expr {$ntags >= 0 ? $tagfgcolor : $headfgcolor }]
6856+ set t [ $canv create text $xl $y1 -anchor w -text $tag -fill $textfgcolor \
68546857 -font $font -tags [list tag.$id text] ]
68556858 if {$ntags >= 0} {
68566859 $canv bind $t <1> $tagclick
@@ -11796,7 +11799,7 @@ proc prefspage_general {notebook} {
1179611799
1179711800proc prefspage_colors {notebook} {
1179811801 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11799- global diffbgcolors
11802+ global diffbgcolors linkfgcolor
1180011803 global themeloader
1180111804
1180211805 set page [ create_prefs_page $notebook .colors]
@@ -11873,14 +11876,19 @@ proc prefspage_colors {notebook} {
1187311876 -command [ list choosecolor selectbgcolor {} $page [mc " background" ] ]
1187411877 grid x $page .selbgbut $page .selbgsep -sticky w
1187511878
11879+ label $page .linkfg -padx 40 -relief sunk -background $linkfgcolor
11880+ ttk::button $page .linkfgbut -text [ mc " Link" ] \
11881+ -command [ list choosecolor linkfgcolor {} $page [mc " link" ] ]
11882+ grid x $page .linkfgbut $page .linkfg -sticky w
11883+
1187611884 grid columnconfigure $page 2 -weight 1
1187711885
1187811886 return $page
1187911887}
1188011888
1188111889proc prefspage_set_colorswatches {page} {
1188211890 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11883- global diffbgcolors
11891+ global diffbgcolors linkfgcolor
1188411892
1188511893 $page .bg configure -background $bgcolor
1188611894 $page .fg configure -background $fgcolor
@@ -11891,6 +11899,7 @@ proc prefspage_set_colorswatches {page} {
1189111899 $page .hunksep configure -background [ lindex $diffcolors 2]
1189211900 $page .markbgsep configure -background $markbgcolor
1189311901 $page .selbgsep configure -background $selectbgcolor
11902+ $page .linkfg configure -background $linkfgcolor
1189411903}
1189511904
1189611905proc prefspage_fonts {notebook} {
0 commit comments