From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Fri, 12 Mar 2010 18:31:47 +0000 (+0000)
Subject: gitk: Avoid calling tk_setPalette on Windows
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=2e58c944cdaf63a23ebd35c43d31e639e1e23d9f;p=gitk

gitk: Avoid calling tk_setPalette on Windows

This just messes up the system colors.  Leave them alone.

Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
Signed-off-by: Paul Mackerras <paulus@samba.org>
---

diff --git a/gitk b/gitk
index 8a4f727..ba91bba 100755
--- a/gitk
+++ b/gitk
@@ -10847,6 +10847,7 @@ proc setselbg {c} {
 # radiobuttons look bad.  This chooses white for selectColor if the
 # background color is light, or black if it is dark.
 proc setui {c} {
+    if {[tk windowingsystem] eq "win32"} { return }
     set bg [winfo rgb . $c]
     set selc black
     if {[lindex $bg 0] + 1.5 * [lindex $bg 1] + 0.5 * [lindex $bg 2] > 100000} {