From: hunt <hunt>
Date: Wed, 2 Jul 2003 22:19:29 +0000 (+0000)
Subject: 2003-07-02  Martin Hunt  <hunt@redhat.com>
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=80e71195c4f89b23111c36396a3bd167b9048e5d;p=pf3gnuchains%2Fsourceware.git

2003-07-02  Martin Hunt  <hunt@redhat.com>

	* library/prefs.tcl (pref_set_option_db): Only
	set checkbutton select color for Unix.  Fixes Windows
	checkbutton problem.
---

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index a9ad0a9f77..e140b32302 100644
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,9 @@
+2003-07-02  Martin Hunt  <hunt@redhat.com>
+
+	* library/prefs.tcl (pref_set_option_db): Only
+	set checkbutton select color for Unix.  Fixes Windows
+	checkbutton problem.
+
 2003-06-26  Keith R Seitz  <keiths@redhat.com>
 
 	From Roland Schwingel <Roland.Schwingel@onevision.de>:
diff --git a/gdb/gdbtk/library/prefs.tcl b/gdb/gdbtk/library/prefs.tcl
index 528aadc8c7..8f6e0123a6 100644
--- a/gdb/gdbtk/library/prefs.tcl
+++ b/gdb/gdbtk/library/prefs.tcl
@@ -703,5 +703,7 @@ proc pref_set_option_db {makebg} {
 
   # Change the default select color for checkbuttons, etc to match 
   # selectBackground.
-  option add *selectColor $Colors(sbg)
+  if {$::tcl_platform(platform) == "unix"}  {
+    option add *selectColor $Colors(sbg)
+  }
 }