* gdbtk.tcl (files_command): Reorder the binding tags for

	the listbox widget to avoid referencing the listbox after
	the containing widget has been destroyed by the action of
	a previous binding.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 4a26f00d84f0eb7fd475cfe5052766d4fefc82b9..d5102dc93cc9e75d89b6a0bd43d1e586fb2206b6 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,10 @@
+Sat Jul 20 17:46:40 1996  Fred Fish  <fnf@cygnus.com>
+
+       * gdbtk.tcl (files_command): Reorder the binding tags for
+       the listbox widget to avoid referencing the listbox after
+       the containing widget has been destroyed by the action of
+       a previous binding.
+
 Sat Jul 20 10:41:06 1996  Fred Fish  <fnf@cygnus.com>
 
        * dwarf2read.c (struct filenames): Change internal "struct file"

diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl
index 6d027cca3031cd6c86944fbdefbe6322cc55c43b..bd08669e734b723e35b16ebcc8415804c224e0df 100644 (file)
--- a/gdb/gdbtk.tcl
+++ b/gdb/gdbtk.tcl
@@ -2241,12 +2241,17 @@ proc files_command {} {
   pack .files_window.close -side bottom -fill x -expand no -anchor s
   pack .files_window.scroll -side right -fill both
   pack .files_window.list -side left -fill both -expand yes
-  bind .files_window.list <Any-ButtonRelease-1> {
+  bind .files_window.list <ButtonRelease-1> {
     set file [%W get [%W curselection]]
     gdb_cmd "list $file:1,0"
     update_listing [gdb_loc $file:1]
     destroy .files_window
   }
+  # We must execute the listbox binding first, because it
+  # references the widget that will be destroyed by the widget
+  # binding for Button-Release-1.  Otherwise we try to use
+  # .files_window.list after the .files_window is destroyed.
+  bind_widget_after_class .files_window.list
 }
 
 button .files -text Files -command files_command