From 396bf873e9623342c36343254b0a46d8415bae50 Mon Sep 17 00:00:00 2001 From: Fred Fish Date: Sun, 21 Jul 1996 01:28:12 +0000 Subject: * 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. --- gdb/gdbtk.tcl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'gdb/gdbtk.tcl') diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl index 6d027cc..bd08669 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 -- cgit v1.1