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

	* library/prefs.tcl (pref_set_option_db): On Windows, fix
	highlighting of buttons.  On Unix, fix highlighting of
	menus.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index e140b32..460948e 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,14 @@
+2003-07-29  Martin Hunt  <hunt@redhat.com>
+
+       * library/prefs.tcl (pref_set_option_db): On Windows, fix 
+       highlighting of buttons.  On Unix, fix highlighting of
+       menus.
+
+2003-07-10  Martin Hunt  <hunt@redhat.com>
+
+       * library/prefs.tcl (pref_set_option_db): Only set 
+       activeBackground for Unix.
+
 2003-07-02  Martin Hunt  <hunt@redhat.com>
 
        * library/prefs.tcl (pref_set_option_db): Only

diff --git a/gdb/gdbtk/library/prefs.tcl b/gdb/gdbtk/library/prefs.tcl
index 8f6e012..b767c89 100644 (file)
--- a/gdb/gdbtk/library/prefs.tcl
+++ b/gdb/gdbtk/library/prefs.tcl
@@ -682,8 +682,14 @@ proc pref_set_option_db {makebg} {
 
   option add *highlightBackground $Colors(bg)
   option add *selectBackground $Colors(sbg)
-  option add *activeBackground $Colors(sbg)
+
+  if {$::tcl_platform(platform) == "unix"}  {
+    option add *activeBackground $Colors(sbg)
+  }
+
   option add *selectForeground $Colors(sfg)
+  option add *Menu*activeForeground $Colors(sfg)
+
   if {[info exists Colors(prelight)]} {
     option add *Button*activeBackground $Colors(prelight)
   }