From 78daa95e3a4ea4ad4a2e029f598b7c5c6c9d63b8 Mon Sep 17 00:00:00 2001 From: Stu Grossman Date: Tue, 31 Jan 1995 01:41:55 +0000 Subject: [PATCH] * gdbtk.tcl (create_file_win): Disable old popup menu for source window. --- gdb/ChangeLog | 3 +++ gdb/gdbtk.tcl | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index ce1507a72b7..be987b3d62d 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,8 @@ Mon Jan 30 17:34:24 1995 Stu Grossman (grossman@cygnus.com) + * gdbtk.tcl (create_file_win): Disable old popup menu for source + window. + * sparcl-tdep.c: Add `sparclite' target for doing serial and udp downloads to SPARClite demo boards. diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl index 2df9cf08ddd..9af60a69fb5 100644 --- a/gdb/gdbtk.tcl +++ b/gdb/gdbtk.tcl @@ -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"] -- 2.30.2