mirrors/git
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

gitk: Add configuration for UI colour scheme

Browse Source 
This adds an option to control the global colour scheme in the
Edit > Preferences dialog so that the whole interface can have
a non-default main colour.

Signed-off-by: Guillermo S. Romero <gsromero@infernal-iceberg.com>
Signed-off-by: Paul Mackerras <paulus@samba.org>
This commit is contained in:
Guillermo S. Romero
2009-10-15 18:51:49 +02:00
committed by Paul Mackerras
parent 9bedb0e185
commit 5497f7a23a
1 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
gitk
View File

@ -2519,7 +2519,7 @@ proc savestuff {w} {
global maxwidth showneartags showlocalchanges global maxwidth showneartags showlocalchanges
global viewname viewfiles viewargs viewargscmd viewperm nextviewnum global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
global cmitmode wrapcomment datetimeformat limitdiffs global cmitmode wrapcomment datetimeformat limitdiffs
global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor global colors uicolor bgcolor fgcolor diffcolors diffcontext selectbgcolor
global autoselect extdifftool perfile_attrs markbgcolor global autoselect extdifftool perfile_attrs markbgcolor
global hideremotes global hideremotes
@ -2546,6 +2546,7 @@ proc savestuff {w} {
puts $f [list set showlocalchanges $showlocalchanges] puts $f [list set showlocalchanges $showlocalchanges]
puts $f [list set datetimeformat $datetimeformat] puts $f [list set datetimeformat $datetimeformat]
puts $f [list set limitdiffs $limitdiffs] puts $f [list set limitdiffs $limitdiffs]
puts $f [list set uicolor $uicolor]
puts $f [list set bgcolor $bgcolor] puts $f [list set bgcolor $bgcolor]
puts $f [list set fgcolor $fgcolor] puts $f [list set fgcolor $fgcolor]
puts $f [list set colors $colors] puts $f [list set colors $colors]
@ -10425,7 +10426,7 @@ proc chg_fontparam {v sub op} {
proc doprefs {} { proc doprefs {} {
global maxwidth maxgraphpct global maxwidth maxgraphpct
global oldprefs prefstop showneartags showlocalchanges global oldprefs prefstop showneartags showlocalchanges
global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
global tabstop limitdiffs autoselect extdifftool perfile_attrs global tabstop limitdiffs autoselect extdifftool perfile_attrs
global hideremotes global hideremotes
@ -10489,6 +10490,10 @@ proc doprefs {} {
label $top.cdisp -text [mc "Colors: press to choose"] label $top.cdisp -text [mc "Colors: press to choose"]
grid $top.cdisp - -sticky w -pady 10 grid $top.cdisp - -sticky w -pady 10
label $top.ui -padx 40 -relief sunk -background $uicolor
button $top.uibut -text [mc "Interface"] -font optionfont \
-command [list choosecolor uicolor {} $top.ui [mc "interface"] setui]
grid x $top.uibut $top.ui -sticky w
label $top.bg -padx 40 -relief sunk -background $bgcolor label $top.bg -padx 40 -relief sunk -background $bgcolor
button $top.bgbut -text [mc "Background"] -font optionfont \ button $top.bgbut -text [mc "Background"] -font optionfont \
-command [list choosecolor bgcolor {} $top.bg [mc "background"] setbg] -command [list choosecolor bgcolor {} $top.bg [mc "background"] setbg]
@ -10572,6 +10577,10 @@ proc setselbg {c} {
allcanvs itemconf secsel -fill $c allcanvs itemconf secsel -fill $c
} }
proc setui {c} {
tk_setPalette $c
}
proc setbg {c} { proc setbg {c} {
global bglist global bglist
@ -11079,6 +11088,7 @@ if {[tk windowingsystem] eq "aqua"} {
} }
set colors {green red blue magenta darkgrey brown orange} set colors {green red blue magenta darkgrey brown orange}
set uicolor grey85
set bgcolor white set bgcolor white
set fgcolor black set fgcolor black
set diffcolors {red "#00a000" blue} set diffcolors {red "#00a000" blue}
@ -11130,6 +11140,8 @@ eval font create textfontbold [fontflags textfont 1]
parsefont uifont $uifont parsefont uifont $uifont
eval font create uifont [fontflags uifont] eval font create uifont [fontflags uifont]
tk_setPalette $uicolor
setoptions setoptions
# check that we can find a .git directory somewhere... # check that we can find a .git directory somewhere...