This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
import combobox 2.2.1
- 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: 03 Feb 2003 23:41:47 -0800
- Subject: import combobox 2.2.1
I have imported combobox 2.2.1 into libgui and made the following
changes to Insight.
2003-02-03 Martin M. Hunt <hunt@redhat.com>
* 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.
Index: library/globalpref.itb
===================================================================
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)
# get list of icon directories
set curdir [pwd]
@@ -279,7 +279,7 @@
label $f.${name}x -text $label
combobox::combobox $f.${name}n -editable 0 -value $_original($name,family) \
- -command [code $this _change_font $name]
+ -command [code $this _change_font $name] -bg $::Colors(textbg)
foreach a $font_list {
$f.${name}n list insert end $a
Index: library/main.tcl
===================================================================
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 catch
# any odd errors... :
-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_RUNNING) == 0} {
if {$::tcl_platform(platform) != "windows"} {
Index: library/mempref.itb
===================================================================
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
===================================================================
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
# Various possible "main" functions. What's for Java?
- pref define gdb/main_names [list MAIN___ MAIN__ main cyg_user_start cyg_start ]
+ pref define gdb/main_names [list main MAIN___ MAIN__ cyg_user_start cyg_start ]
# These are the classes of warning dialogs, and whether the user plans
# to ignore them.
Index: library/srcpref.itb
===================================================================
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)
foreach elem $vals {
$f.dis.combo list insert end $elem
Index: library/srcwin.itb
===================================================================
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
combobox::combobox $_statbar.name -maxheight 15 -font global/fixed\
- -command [code $this _name]
+ -command [code $this _name] -bg $::Colors(textbg)
set need_files 1
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)
$_statbar.mode list insert end SOURCE
$_statbar.mode list insert end ASSEMBLY
Index: library/targetselection.itb
===================================================================
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_target] \
- -width $Width -maxheight 10
+ -width $Width -maxheight 10 -bg $::Colors(textbg)
# 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)
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)
# load baud rates into combobox
fill_rates
Index: library/tracedlg.tcl
===================================================================
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 @@
# 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