From: Stu Grossman <grossman@cygnus>
Date: Tue, 31 Jan 1995 01:41:55 +0000 (+0000)
Subject: 	* gdbtk.tcl (create_file_win):  Disable old popup menu for source
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=78daa95e3a4ea4ad4a2e029f598b7c5c6c9d63b8;p=binutils-gdb.git

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

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