From: Tom Tromey <tromey@redhat.com>
Date: Thu, 16 May 1996 18:05:26 +0000 (+0000)
Subject:         * gdbtk.tcl (files_command): Correctly insert list of files into
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f4e769dc02fd968cb5a9e845cd544fd158ca4269;p=binutils-gdb.git

    * gdbtk.tcl (files_command): Correctly insert list of files into
        listbox widget.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index dac8eb4e798..b2fc6c819bc 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 f712c116649..da602c8d9a0 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