* gdbtk.tcl (create_file_win): Disable old popup menu for source

window.
This commit is contained in:
Stu Grossman
1995-01-31 01:41:55 +00:00
parent 0e887539b0
commit 78daa95e3a
2 changed files with 4 additions and 1 deletions

View File

@@ -972,7 +972,7 @@ proc create_file_win {filename debug_file} {
$win tag add margin $i.0 $i.8
}
$win tag bind margin <1> {listing_window_button_1 %W %X %Y %x %y}
# $win tag bind margin <1> {listing_window_button_1 %W %X %Y %x %y}
$win tag bind source <1> {
%W mark set anchor "@%x,%y wordstart"
set last [%W index "@%x,%y wordend"]