* library/bpwin.itb (bp_select): Use standard preferences

	for selection fg & bg, not tixOption database.

	* process.itb, tracedlg.tcl: Remove all traces of those
	three evil little letters, "t", "i", "x".

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index e931177..79736df 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,5 +1,13 @@
 2001-08-28  Keith Seitz  <keiths@redhat.com>
 
+       * library/bpwin.itb (bp_select): Use standard preferences
+       for selection fg & bg, not tixOption database.
+
+       * process.itb, tracedlg.tcl: Remove all traces of those
+       three evil little letters, "t", "i", "x".
+
+2001-08-28  Keith Seitz  <keiths@redhat.com>
+
        * library/tracedlg.tcl (build_win): Use libgui's
        Labelledframe instead of tixLabelFrame.
        Use iwidgets::scrolledlistbox instead of tixScrolledListbox.

diff --git a/gdb/gdbtk/library/bpwin.itb b/gdb/gdbtk/library/bpwin.itb
index a97e994..56aa1ef 100644 (file)
--- a/gdb/gdbtk/library/bpwin.itb
+++ b/gdb/gdbtk/library/bpwin.itb
@@ -357,7 +357,7 @@ body BpWin::bp_restore {} {
 #  METHOD:  bp_select - select a row in the grid
 # ------------------------------------------------------------------
 body BpWin::bp_select { r } {
-  global tixOption _bp_en _bp_disp
+  global _bp_en _bp_disp
 
   set zz [list addr file func line]
   if {$tracepoints} {lappend zz num pass}
@@ -367,7 +367,7 @@ body BpWin::bp_select { r } {
     set i $selected
     
     foreach thing $zz {
-      $twin.${thing}${i}  configure -fg $tixOption(fg) -bg $bg1
+      $twin.${thing}${i}  configure -fg [pref get gdb/font/select_fg] -bg $bg1
       bind $twin.${thing}${i} <3> break
     }
   }
@@ -394,7 +394,8 @@ body BpWin::bp_select { r } {
   }
 
   foreach thing $zz {
-    $twin.${thing}${r}  configure -fg $tixOption(select_fg) -bg $tixOption(select_bg)
+    $twin.${thing}${r} configure -fg [pref get gdb/font/select_fg] \
+      -bg [pref get gdb/font/select_bg]
     bind $twin.${thing}${r}  <3> "tk_popup $Menu %X %Y"
   }
   

diff --git a/gdb/gdbtk/library/process.itb b/gdb/gdbtk/library/process.itb
index d52b063..ce80d97 100644 (file)
--- a/gdb/gdbtk/library/process.itb
+++ b/gdb/gdbtk/library/process.itb
@@ -34,16 +34,14 @@ body ProcessWin::constructor {args} {
 #  METHOD:  build_win - build the main process window
 # ------------------------------------------------------------------
 body ProcessWin::build_win {} {
-  global tixOption tcl_platform
+  global tcl_platform
 
   if {$tcl_platform(platform) == "windows"} {
-    #tixScrolledListBox $itk_interior.s -scrollbar both -sizebox 1
     set hsmode static
     set vsmode static
     ide_sizebox $itk_interior.sbox
     place $itk_interior.sbox -relx 1.0 -rely 1.0 -anchor se
   } else {
-    #tixScrolledListBox $itk_interior.s -scrollbar auto
     set hsmode dynamic
     set vsmode dynamic
   }

diff --git a/gdb/gdbtk/library/tracedlg.tcl b/gdb/gdbtk/library/tracedlg.tcl
index ec35328..f5462ca 100644 (file)
--- a/gdb/gdbtk/library/tracedlg.tcl
+++ b/gdb/gdbtk/library/tracedlg.tcl
@@ -301,7 +301,6 @@ class TraceDlg {
     pack $pass_frame.ent -side right -padx 10 -pady 5
 
     # Actions
-    #tixScrolledListBox $act_frame.lb -scrollbar auto 
     set ActionLB $act_frame.lb
     iwidgets::scrolledlistbox $act_frame.lb -hscrollmode dynamic \
       -vscrollmode dynamic -selectmode multiple -exportselection 0 \