From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 24623 invoked by alias); 4 Feb 2003 07:41: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 24613 invoked from network); 4 Feb 2003 07:41:45 -0000 Received: from unknown (HELO mx1.redhat.com) (172.16.49.200) by 172.16.49.205 with SMTP; 4 Feb 2003 07:41:45 -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 h147fif17970 for ; Tue, 4 Feb 2003 02:41:44 -0500 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 h147fia18431 for ; Tue, 4 Feb 2003 02:41:44 -0500 Received: from dragon (romulus-int.sfbay.redhat.com [172.16.27.46]) by pobox.corp.redhat.com (8.11.6/8.11.6) with ESMTP id h147fhX21696 for ; Tue, 4 Feb 2003 02:41:43 -0500 Subject: import combobox 2.2.1 From: "Martin M. Hunt" To: "insight@sources.redhat.com" Content-Type: multipart/mixed; boundary="=-C/V5BX0QTrQNHzl5A53k" Date: Tue, 04 Feb 2003 07:41:00 -0000 Message-Id: <1044344508.2681.13.camel@Dragon> Mime-Version: 1.0 X-SW-Source: 2003-q1/txt/msg00072.txt.bz2 --=-C/V5BX0QTrQNHzl5A53k Content-Type: text/plain Content-Transfer-Encoding: 7bit Content-length: 496 I have imported combobox 2.2.1 into libgui and made the following changes to Insight. 2003-02-03 Martin M. Hunt * library/globalpref.itb, library/mempref.itb, library/srcpref.itb, library/srcwin.itb, library/targetselection.itb, library/tracedlg.tcl: Set background color of comboboxes to Colors(textbg). * library/main.tcl: Load combobox version 2.2. * library/prefs.tcl: Minor optimization. Change order of main_names to have the most common, "main", first. --=-C/V5BX0QTrQNHzl5A53k Content-Disposition: attachment; filename=p Content-Transfer-Encoding: quoted-printable Content-Type: text/x-patch; name=p; charset=UTF-8 Content-length: 9899 Index: library/globalpref.itb =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvs/src/src/gdb/gdbtk/library/globalpref.itb,v retrieving revision 1.10 diff -u -r1.10 globalpref.itb --- library/globalpref.itb 6 Nov 2002 20:45:53 -0000 1.10 +++ library/globalpref.itb 4 Feb 2003 07:38:42 -0000 @@ -1,5 +1,5 @@ # Global preference class implementation for Insight. -# Copyright 1997, 1998, 1999, 2002 Red Hat +# Copyright 1997, 1998, 1999, 2002, 2003 Red Hat # # This program is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License (GPL) as published by @@ -86,7 +86,7 @@ frame $frame.icons label $frame.icons.lab -text "Icons " combobox::combobox $frame.icons.cb -editable 0 -maxheight 10\ - -command [code $this _change_icons] + -command [code $this _change_icons] -bg $::Colors(textbg) =20=20=20 # get list of icon directories set curdir [pwd] @@ -279,7 +279,7 @@ label $f.${name}x -text $label =20 combobox::combobox $f.${name}n -editable 0 -value $_original($name,famil= y) \ - -command [code $this _change_font $name] + -command [code $this _change_font $name] -bg $::Colors(textbg) =20 foreach a $font_list { $f.${name}n list insert end $a Index: library/main.tcl =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvs/src/src/gdb/gdbtk/library/main.tcl,v retrieving revision 1.14 diff -u -r1.14 main.tcl --- library/main.tcl 4 Feb 2003 07:12:25 -0000 1.14 +++ library/main.tcl 4 Feb 2003 07:38:42 -0000 @@ -1,5 +1,5 @@ # GDBtk (Insight) entry point -# Copyright 1997, 1998, 1999, 2002 Red Hat, Inc. +# Copyright 1997, 1998, 1999, 2002, 2003 Red Hat, Inc. # # This program is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License (GPL) as published by @@ -57,7 +57,7 @@ # Require the packages we need. Most are loaded already, but this will ca= tch=20 # any odd errors... : =20 -foreach p {{Tcl 8.0} {Tk 8.0} {Itcl 3.0} {Itk 3.0} {Gdbtk 1.0} {combobox 1= .0} {debug 1.0}} { +foreach p {{Tcl 8.0} {Tk 8.0} {Itcl 3.0} {Itk 3.0} {Gdbtk 1.0} {combobox 2= .2} {debug 1.0}} { if {[catch {package require [lindex $p 0] [lindex $p 1]} msg]} { if {![info exists ::env(GDBTK_TEST_RUNNING)] || $::env(GDBTK_TEST_RUNN= ING) =3D=3D 0} { if {$::tcl_platform(platform) !=3D "windows"} { Index: library/mempref.itb =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvs/src/src/gdb/gdbtk/library/mempref.itb,v retrieving revision 1.4 diff -u -r1.4 mempref.itb --- library/mempref.itb 15 Oct 2002 21:19:51 -0000 1.4 +++ library/mempref.itb 4 Feb 2003 07:38:42 -0000 @@ -1,5 +1,5 @@ # Memory display preferences window for Insight. -# Copyright 1998, 1999, 2002 Red Hat +# Copyright 1998, 1999, 2002, 2003 Red Hat # # This program is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License (GPL) as published by @@ -153,7 +153,8 @@ label $fr.2.l -text "Bytes Per Row " set Widgets(b-bytes_per_row) [::combobox::combobox $fr.2.c \ -command [code $this set_bytes_per_row] \ - -width 4 -editable 0 -font global/fixed] + -width 4 -editable 0 -font global/fixed \ + -bg $::Colors(textbg)] $fr.2.c list insert end 4 $fr.2.c list insert end 8 $fr.2.c list insert end 16 Index: library/prefs.tcl =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvs/src/src/gdb/gdbtk/library/prefs.tcl,v retrieving revision 1.22 diff -u -r1.22 prefs.tcl --- library/prefs.tcl 4 Dec 2002 20:46:04 -0000 1.22 +++ library/prefs.tcl 4 Feb 2003 07:38:42 -0000 @@ -391,7 +391,7 @@ pref define gdb/kod/show_icon 0 =20 # Various possible "main" functions. What's for Java? - pref define gdb/main_names [list MAIN___ MAIN__ main cyg_us= er_start cyg_start ] + pref define gdb/main_names [list main MAIN___ MAIN__ cyg_us= er_start cyg_start ] =20 # These are the classes of warning dialogs, and whether the user plans # to ignore them. Index: library/srcpref.itb =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvs/src/src/gdb/gdbtk/library/srcpref.itb,v retrieving revision 1.8 diff -u -r1.8 srcpref.itb --- library/srcpref.itb 3 Dec 2002 22:52:23 -0000 1.8 +++ library/srcpref.itb 4 Feb 2003 07:38:42 -0000 @@ -1,5 +1,5 @@ # Source preferences dialog for Insight. -# Copyright 1998, 1999, 2002 Red Hat +# Copyright 1998, 1999, 2002, 2003 Red Hat # # This program is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License (GPL) as published by @@ -159,7 +159,8 @@ frame $f.dis label $f.dis.l -text "Disassembly Flavor: " combobox::combobox $f.dis.combo -maxheight 15 -width 15 \ - -font global/fixed -editable 0 -command [code $this _set_flavor] + -font global/fixed -editable 0 -command [code $this _set_flavor] \ + -bg $::Colors(textbg) =20=20=20=20=20 foreach elem $vals { $f.dis.combo list insert end $elem Index: library/srcwin.itb =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvs/src/src/gdb/gdbtk/library/srcwin.itb,v retrieving revision 1.28 diff -u -r1.28 srcwin.itb --- library/srcwin.itb 21 Jan 2003 21:58:34 -0000 1.28 +++ library/srcwin.itb 4 Feb 2003 07:38:43 -0000 @@ -97,14 +97,14 @@ pack $_statbar -expand 1 -fill both =20 combobox::combobox $_statbar.name -maxheight 15 -font global/fixed\ - -command [code $this _name] + -command [code $this _name] -bg $::Colors(textbg) =20=20=20 set need_files 1 =20=20=20 combobox::combobox $_statbar.func -maxheight 15 -font global/fixed\ - -command [code $this goto_func] + -command [code $this goto_func] -bg $::Colors(textbg) combobox::combobox $_statbar.mode -width 9 -editable false \ - -font global/fixed -command [code $this mode] + -font global/fixed -command [code $this mode] -bg $::Colors(textbg) =20=20=20 $_statbar.mode list insert end SOURCE $_statbar.mode list insert end ASSEMBLY Index: library/targetselection.itb =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvs/src/src/gdb/gdbtk/library/targetselection.itb,v retrieving revision 1.13 diff -u -r1.13 targetselection.itb --- library/targetselection.itb 4 Feb 2003 07:20:02 -0000 1.13 +++ library/targetselection.itb 4 Feb 2003 07:38:43 -0000 @@ -1,5 +1,5 @@ # Target selection dialog for Insight. -# Copyright 1997, 1998, 1999, 2000, 2001, 2002 Red Hat, Inc. +# Copyright 1997, 1998, 1999, 2000, 2001, 2002, 2003 Red Hat, Inc. # # This program is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License (GPL) as published by @@ -400,13 +400,13 @@ # target name label $fr.tarl -text [gettext "Target:"] combobox::combobox $fr.tar -editable 0 -command [code $this change_targe= t] \ - -width $Width -maxheight 10 + -width $Width -maxheight 10 -bg $::Colors(textbg) =20 # baud rate combobox label $fr.cbl -text [gettext "Baud Rate:"] combobox::combobox $fr.cb -editable 0 -command [code $this change_baud] \ -textvariable [pref varname gdb/load/$target-baud] -width $Width \ - -maxheight 10 + -maxheight 10 -bg $::Colors(textbg) =20 if {[catch {gdb_cmd "show remotebaud"} res]} { set baud [pref get gdb/load/$target-baud] @@ -436,7 +436,7 @@ label $fr.portl -text [gettext "Port:"] combobox::combobox $fr.port -editable $editable \ -textvariable [pref varname gdb/load/$target-port] \ - -width $Width -maxheight 10 + -width $Width -maxheight 10 -bg $::Colors(textbg) =20 # load baud rates into combobox fill_rates Index: library/tracedlg.tcl =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvs/src/src/gdb/gdbtk/library/tracedlg.tcl,v retrieving revision 1.7 diff -u -r1.7 tracedlg.tcl --- library/tracedlg.tcl 15 Oct 2002 21:19:51 -0000 1.7 +++ library/tracedlg.tcl 4 Feb 2003 07:38:43 -0000 @@ -1,5 +1,5 @@ # Trace configuration dialog for Insight -# Copyright 1997, 1998, 1999, 2001, 2002 Red Hat, Inc. +# Copyright 1997, 1998, 1999, 2001, 2002, 2003 Red Hat, Inc. # # This program is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License (GPL) as published by @@ -314,7 +314,8 @@ =20 # New actions combobox::combobox $new_frame.combo -maxheight 15 -editable 0 \ - -font global/fixed -command [code $this set_action_type] + -font global/fixed -command [code $this set_action_type] \ + -bg $::Colors(textbg) $new_frame.combo list insert end collect while-stepping $new_frame.combo entryset collect =20 --=-C/V5BX0QTrQNHzl5A53k--