darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2025-02-10 03:02:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse Source 
the listbox widget to avoid referencing the listbox after
	the containing widget has been destroyed by the action of
	a previous binding.
This commit is contained in:
Fred Fish 1996-07-21 01:28:12 +00:00
parent 9422fadb91
commit 396bf873e9
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/ChangeLog
View File

@ -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"

7
gdb/gdbtk.tcl
View File

@ -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