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

	window.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index ce1507a72b7d9923d5909c05448f4d26c564bb90..be987b3d62d8becabb0be7d986aab2555dbd15ee 100644 (file)
--- 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 2df9cf08ddda39a908d6db6d9ca76efca7b2a177..9af60a69fb5265fa237bfe6c4576c14fda00e7df 100644 (file)
--- 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"]