From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 23129 invoked by alias); 2 Jul 2003 22:22:45 -0000 Mailing-List: contact insight-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: insight-owner@sources.redhat.com Received: (qmail 23116 invoked from network); 2 Jul 2003 22:22:44 -0000 Received: from unknown (HELO mx1.redhat.com) (66.187.233.31) by sources.redhat.com with SMTP; 2 Jul 2003 22:22:44 -0000 Received: from int-mx1.corp.redhat.com (int-mx1.corp.redhat.com [172.16.52.254]) by mx1.redhat.com (8.11.6/8.11.6) with ESMTP id h62MMiH20758 for ; Wed, 2 Jul 2003 18:22:44 -0400 Received: from pobox.corp.redhat.com (pobox.corp.redhat.com [172.16.52.156]) by int-mx1.corp.redhat.com (8.11.6/8.11.6) with ESMTP id h62MMiI14719 for ; Wed, 2 Jul 2003 18:22:44 -0400 Received: from localhost (romulus-int.sfbay.redhat.com [172.16.27.46]) by pobox.corp.redhat.com (8.11.6/8.11.6) with ESMTP id h62MMhi31433 for ; Wed, 2 Jul 2003 18:22:43 -0400 Subject: patch: fix Windows checkbutton colors From: "Martin M. Hunt" To: "Insight list (E-mail)" Content-Type: multipart/mixed; boundary="=-F2+kmRwFsgImzA/3JdWu" Organization: Red Hat Inc. Message-Id: <1057184560.2227.2.camel@dragon> Mime-Version: 1.0 Date: Wed, 02 Jul 2003 22:22:00 -0000 X-SW-Source: 2003-q3/txt/msg00011.txt.bz2 --=-F2+kmRwFsgImzA/3JdWu Content-Type: text/plain Content-Transfer-Encoding: 7bit Content-length: 299 Sorry it took me so long to get around to this. This should fix the checkbutton color problem. Martin 2003-07-02 Martin Hunt * library/prefs.tcl (pref_set_option_db): Only set checkbutton select color for Unix. Fixes Windows checkbutton problem. --=-F2+kmRwFsgImzA/3JdWu Content-Disposition: attachment; filename=p Content-Type: text/x-patch; name=p; charset=UTF-8 Content-Transfer-Encoding: 7bit Content-length: 549 Index: library/prefs.tcl =================================================================== RCS file: /cvs/src/src/gdb/gdbtk/library/prefs.tcl,v retrieving revision 1.25 diff -u -r1.25 prefs.tcl --- library/prefs.tcl 13 Jun 2003 19:30:49 -0000 1.25 +++ library/prefs.tcl 2 Jul 2003 22:18:53 -0000 @@ -703,5 +703,7 @@ # 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) + } } --=-F2+kmRwFsgImzA/3JdWu--