diff options
-rw-r--r-- | gdb/gdbtk/ChangeLog | 11 | ||||
-rw-r--r-- | gdb/gdbtk/library/prefs.tcl | 8 |
2 files changed, 18 insertions, 1 deletions
diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index bbe5bb89a00..96154900bfa 100644 --- 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-03 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 8f6e0123a6c..b767c898a73 100644 --- 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) } |