From: Fred Fish Date: Sun, 21 Jul 1996 01:28:12 +0000 (+0000) Subject: * gdbtk.tcl (files_command): Reorder the binding tags for X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=396bf873e9623342c36343254b0a46d8415bae50;p=binutils-gdb.git * 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 4a26f00d84f..d5102dc93cc 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,10 @@ +Sat Jul 20 17:46:40 1996 Fred Fish + + * 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 * dwarf2read.c (struct filenames): Change internal "struct file" diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl index 6d027cca303..bd08669e734 100644 --- 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 { + bind .files_window.list { 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