This is the mail archive of the insight@sources.redhat.com mailing list for the Insight project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

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
 

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]