This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
[patch] fix windows button colors
- From: "Martin M. Hunt" <hunt at redhat dot com>
- To: "insight at sources dot redhat dot com" <insight at sources dot redhat dot com>
- Date: 29 Jul 2003 15:12:57 -0700
- Subject: [patch] fix windows button colors
- Organization: Red Hat Inc.
I've checked in the attached patch into CVS head and 6.0.
It fixes a problem with buttons in Windows having the wrong color. It
also fixes a problem with Unix menu colors. Maybe this time I didn't
add any new bugs...
--
Martin M. Hunt <hunt@redhat.com>
Red Hat Inc.
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.
Index: gdbtk/library/prefs.tcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/prefs.tcl,v
retrieving revision 1.26
diff -u -u -r1.26 prefs.tcl
--- gdbtk/library/prefs.tcl 2 Jul 2003 22:19:29 -0000 1.26
+++ gdbtk/library/prefs.tcl 29 Jul 2003 22:07:35 -0000
@@ -682,8 +682,14 @@
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)
}