gitk: eliminate unused ui color variables
gitk has a number of variables used in setting up colors for the classic (non-themed) widget set. These variables are unused with ttk, so let's eliminate them. But, leave the variables in the config file for now - those can be eliminated after this change is merged. Signed-off-by: Mark Levedahl <mlevedahl@gmail.com>
Mark Levedahl committed
Sep 23, 2025 at 07:55 UTC
83a2de9ca6bd2c191dbdfe1dc89eabb3622b8cc9
1 file changed
+6
-10
gitk
+6
-10
@@ -2381,7 +2381,6 @@ proc makewindow {} {
2381
global highlight_files gdttype
2382
global searchstring sstring
2383
global bgcolor fgcolor bglist fglist diffcolors diffbgcolors selectbgcolor
2384
- global uifgcolor uifgdisabledcolor
2384
global filesepbgcolor filesepfgcolor
2385
global mergecolors foundbgcolor currentsearchhitbgcolor
2386
global headctxmenu progresscanv progressitem progresscoords statusw
@@ -11734,7 +11733,7 @@ proc prefspage_general {notebook} {
11733
}
11734
11735
proc prefspage_colors {notebook} {
11737
- global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11736
+ global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11737
global diffbgcolors
11738
11739
set page [create_prefs_page $notebook.colors]
@@ -11781,7 +11780,7 @@ proc prefspage_colors {notebook} {
11780
}
11781
11782
proc prefspage_set_colorswatches {page} {
11784
- global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11783
+ global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11784
global diffbgcolors
11785
11786
$page.bg configure -background $bgcolor
@@ -11909,7 +11908,7 @@ proc setfg {c} {
11908
}
11909
11910
proc set_gui_colors {} {
11912
- global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11911
+ global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11912
global diffbgcolors
11913
11914
setbg $bgcolor
@@ -12508,17 +12507,11 @@ if {[tk windowingsystem] eq "aqua"} {
12507
12508
set colors {"#00ff00" red blue magenta darkgrey brown orange}
12509
if {[tk windowingsystem] eq "win32"} {
12511
- set uicolor SystemButtonFace
12512
- set uifgcolor SystemButtonText
12513
- set uifgdisabledcolor SystemDisabledText
12510
set bgcolor SystemWindow
12511
set fgcolor SystemWindowText
12512
set selectbgcolor SystemHighlight
12513
set web_browser "cmd /c start"
12514
} else {
12519
- set uicolor grey85
12520
- set uifgcolor black
12521
- set uifgdisabledcolor "#999"
12515
set bgcolor white
12516
set fgcolor black
12517
set selectbgcolor gray85
@@ -12560,6 +12553,9 @@ set currentsearchhitbgcolor orange
12553
12554
set theme [ttk::style theme use]
12555
set themeloader {}
12556
+set uicolor {}
12557
+set uifgcolor {}
12558
+set uifgdisabledcolor {}
12559
12560
# button for popping up context menus
12561
if {[tk windowingsystem] eq "aqua" && [package vcompare $::tcl_version 8.7] < 0} {