Mercurial > hg-stable
changeset 7745:8bfe47e726fe
hgk: added setting of foreground colour
Added the fgcolor setting read by hgk to change the text colour in the
diff output and the file list. The colours for diff highlighting
remains unchanged.
| author | Robert Bauck Hamar <r.b.hamar@usit.uio.no> |
|---|---|
| date | Mon, 09 Feb 2009 19:00:48 +0100 |
| parents | b44dbb95f07f |
| children | 59815cef38f0 |
| files | contrib/hgk |
| diffstat | 1 files changed, 12 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/contrib/hgk Mon Feb 09 00:14:07 2009 +0100 +++ b/contrib/hgk Mon Feb 09 19:00:48 2009 +0100 @@ -439,7 +439,7 @@ global entries sha1entry sha1string sha1but global maincursor textcursor curtextcursor global rowctxmenu gaudydiff mergemax - global hgvdiff bgcolor + global hgvdiff bgcolor fgcolor menu .bar .bar add cascade -label "File" -menu .bar.file @@ -547,7 +547,7 @@ .ctop add .ctop.cdet frame .ctop.cdet.left set ctext .ctop.cdet.left.ctext - text $ctext -bg $bgcolor -state disabled -font $textfont \ + text $ctext -fg $fgcolor -bg $bgcolor -state disabled -font $textfont \ -width $geometry(ctextw) -height $geometry(ctexth) \ -yscrollcommand ".ctop.cdet.left.sb set" \ -xscrollcommand ".ctop.cdet.left.hb set" -wrap none @@ -581,7 +581,8 @@ frame .ctop.cdet.right set cflist .ctop.cdet.right.cfiles - listbox $cflist -bg $bgcolor -selectmode extended -width $geometry(cflistw) \ + listbox $cflist -fg $fgcolor -bg $bgcolor \ + -selectmode extended -width $geometry(cflistw) \ -yscrollcommand ".ctop.cdet.right.sb set" scrollbar .ctop.cdet.right.sb -command "$cflist yview" pack .ctop.cdet.right.sb -side right -fill y @@ -679,7 +680,7 @@ proc savestuff {w} { global canv canv2 canv3 ctext cflist mainfont textfont global stuffsaved findmergefiles gaudydiff maxgraphpct - global maxwidth authorcolors curidfont bgcolor + global maxwidth authorcolors curidfont bgcolor fgcolor if {$stuffsaved} return if {![winfo viewable .]} return @@ -722,6 +723,9 @@ puts $f "#" puts $f "set authorcolors {$authorcolors}" puts $f "set bgcolor $bgcolor" + puts $f "#" + puts $f "# The text color used in the diff and file list view" + puts $f "set fgcolor $fgcolor" close $f file rename -force "~/.hgk-new" "~/.hgk" } @@ -3894,6 +3898,10 @@ } set bgcolor white +# This color should probably be some system color (provided by tk), +# but as the bgcolor has always been set to white, I choose to ignore +set fgcolor black + catch {source ~/.hgk} if {$curidfont == ""} { # initialize late based on current mainfont