diff options
| -rw-r--r-- | gdb/ChangeLog | 3 | ||||
| -rw-r--r-- | gdb/gdbtk.tcl | 17 |
2 files changed, 5 insertions, 15 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index dac8eb4..b2fc6c8 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,6 +1,9 @@ start-sanitize-gdbtk Thu May 16 11:42:58 1996 Tom Tromey <tromey@creche.cygnus.com> + * gdbtk.tcl (files_command): Correctly insert list of files into + listbox widget. + * gdbtk.tcl (files_command): listbox command no longer accepts -geometry. diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl index f712c11..da602c8 100644 --- a/gdb/gdbtk.tcl +++ b/gdb/gdbtk.tcl @@ -1981,21 +1981,8 @@ proc files_command {} { button .files_window.close -text Close -command {destroy .files_window} .files_window.list configure -selectmode single - # Get the file list from GDB, sort it, and format it as one entry per line. - set lastSeen {}; # Value that won't appear in - # list. - set fileList {} - foreach file [lsort [gdb_listfiles]] { - if {$file != $lastSeen} then { - lappend fileList $file - set lastSeen $file - } - } - set filelist [join [lsort [gdb_listfiles]] "\n"] - - # Insert the file list into the widget - - eval .files_window.list insert 0 $filelist + # Get the file list from GDB, sort it, and insert into the widget. + eval .files_window.list insert 0 [lsort [gdb_listfiles]] pack .files_window.close -side bottom -fill x -expand no -anchor s pack .files_window.scroll -side right -fill both |