comparison contrib/hgk @ 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.

7744:b44dbb95f07f

    global canv canv2 canv3 linespc charspc ctext cflist textfont
    global findtype findtypemenu findloc findstring fstring geometry
    global entries sha1entry sha1string sha1but
    global maincursor textcursor curtextcursor
    global rowctxmenu gaudydiff mergemax
    global hgvdiff bgcolor

    menu .bar
    .bar add cascade -label "File" -menu .bar.file
    menu .bar.file
    .bar.file add command -label "Reread references" -command rereadrefs

    panedwindow .ctop.cdet -orient horizontal
    .ctop add .ctop.cdet
    frame .ctop.cdet.left
    set ctext .ctop.cdet.left.ctext
    text $ctext -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
    scrollbar .ctop.cdet.left.sb -command "$ctext yview"
    scrollbar .ctop.cdet.left.hb -orient horizontal -command "$ctext xview"

	$ctext tag conf found -back yellow
    }

    frame .ctop.cdet.right
    set cflist .ctop.cdet.right.cfiles
    listbox $cflist -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
    pack $cflist -side left -fill both -expand 1
    .ctop.cdet add .ctop.cdet.right

}

proc savestuff {w} {
    global canv canv2 canv3 ctext cflist mainfont textfont
    global stuffsaved findmergefiles gaudydiff maxgraphpct
    global maxwidth authorcolors curidfont bgcolor

    if {$stuffsaved} return
    if {![winfo viewable .]} return
    catch {
	set f [open "~/.hgk-new" w]

	puts $f "# of the same author.  When the list of colors is exhausted,"
	puts $f "# the last entry will be reused."
	puts $f "#"
	puts $f "set authorcolors {$authorcolors}"
	puts $f "set bgcolor $bgcolor"
	close $f
	file rename -force "~/.hgk-new" "~/.hgk"
    }
    set stuffsaved 1
}

set authorcolors {
    black blue deeppink mediumorchid blue burlywood4 goldenrod slateblue red2 navy dimgrey
}
set bgcolor white

catch {source ~/.hgk}

if {$curidfont == ""} {  # initialize late based on current mainfont
    set curidfont "$mainfont bold italic underline"
}

7745:8bfe47e726fe

    global canv canv2 canv3 linespc charspc ctext cflist textfont
    global findtype findtypemenu findloc findstring fstring geometry
    global entries sha1entry sha1string sha1but
    global maincursor textcursor curtextcursor
    global rowctxmenu gaudydiff mergemax
    global hgvdiff bgcolor fgcolor

    menu .bar
    .bar add cascade -label "File" -menu .bar.file
    menu .bar.file
    .bar.file add command -label "Reread references" -command rereadrefs

    panedwindow .ctop.cdet -orient horizontal
    .ctop add .ctop.cdet
    frame .ctop.cdet.left
    set ctext .ctop.cdet.left.ctext
    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
    scrollbar .ctop.cdet.left.sb -command "$ctext yview"
    scrollbar .ctop.cdet.left.hb -orient horizontal -command "$ctext xview"

	$ctext tag conf found -back yellow
    }

    frame .ctop.cdet.right
    set cflist .ctop.cdet.right.cfiles
    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
    pack $cflist -side left -fill both -expand 1
    .ctop.cdet add .ctop.cdet.right

}

proc savestuff {w} {
    global canv canv2 canv3 ctext cflist mainfont textfont
    global stuffsaved findmergefiles gaudydiff maxgraphpct
    global maxwidth authorcolors curidfont bgcolor fgcolor

    if {$stuffsaved} return
    if {![winfo viewable .]} return
    catch {
	set f [open "~/.hgk-new" w]

	puts $f "# of the same author.  When the list of colors is exhausted,"
	puts $f "# the last entry will be reused."
	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"
    }
    set stuffsaved 1
}

set authorcolors {
    black blue deeppink mediumorchid blue burlywood4 goldenrod slateblue red2 navy dimgrey
}
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
    set curidfont "$mainfont bold italic underline"
}