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

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 1542eb322917a52005b2c788ad21e09a8c0d3530..711fa101fd7cb6338fd15fa83e9e777fb8621398 100644 (file)
--- 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 a142c3d8f9b549865a501e04a82e946019659db2..9f52096e496314412fa3063f23caf2271836cc8d 100644 (file)
--- 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