From: Stu Grossman <grossman@cygnus>
Date: Sun, 18 Sep 1994 00:07:56 +0000 (+0000)
Subject: 	* gdbtk.tcl:  Let ^U delete lines in the command window.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a5cffdc44a230f803866d2e13aed569e6e1790ec;p=binutils-gdb.git

	* gdbtk.tcl:  Let ^U delete lines in the command window.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 1542eb32291..711fa101fd7 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+Sat Sep 17 17:05:14 1994  Stu Grossman  (grossman@cygnus.com)
+
+	* gdbtk.tcl:  Let ^U delete lines in the command window.
+
 Sat Sep 17 02:26:58 1994  Peter Schauer  (pes@regent.e-technik.tu-muenchen.de)
 
 	* cp-valprint.c (static_field_print):  New variable, controls
diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl
index a142c3d8f9b..9f52096e496 100644
--- a/gdb/gdbtk.tcl
+++ b/gdb/gdbtk.tcl
@@ -1283,6 +1283,7 @@ bind .command.text <Key-Return> {
 bind .command.text <Enter> {focus %W}
 bind .command.text <Delete> {delete_char %W}
 bind .command.text <BackSpace> {delete_char %W}
+bind .command.text <Control-u> {delete_line %W}
 proc delete_char {win} {
 	global command_line
 
@@ -1292,4 +1293,12 @@ proc delete_char {win} {
 	set command_line [string range $command_line 0 $tmp]
 }
 
+proc delete_line {win} {
+	global command_line
+
+	$win delete {end linestart + 6 chars} end
+	$win yview -pickplace insert
+	set command_line {}
+}
+
 wm minsize .command 1 1