diff options
| author | Fred Fish <fnf@specifix.com> | 1996-07-21 01:28:12 +0000 |
|---|---|---|
| committer | Fred Fish <fnf@specifix.com> | 1996-07-21 01:28:12 +0000 |
| commit | 396bf873e9623342c36343254b0a46d8415bae50 (patch) | |
| tree | 56755ad229cd046ad77d745a90ffe308e39ab2cd /gdb/gdbtk.tcl | |
| parent | 9422fadb91c568a976414bef7ea91e5832eab334 (diff) | |
| download | gdb-396bf873e9623342c36343254b0a46d8415bae50.zip gdb-396bf873e9623342c36343254b0a46d8415bae50.tar.gz gdb-396bf873e9623342c36343254b0a46d8415bae50.tar.bz2 | |
* 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.
Diffstat (limited to 'gdb/gdbtk.tcl')
| -rw-r--r-- | gdb/gdbtk.tcl | 7 |
1 files changed, 6 insertions, 1 deletions
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 <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 |