From a5cffdc44a230f803866d2e13aed569e6e1790ec Mon Sep 17 00:00:00 2001 From: Stu Grossman Date: Sun, 18 Sep 1994 00:07:56 +0000 Subject: [PATCH] * gdbtk.tcl: Let ^U delete lines in the command window. --- gdb/ChangeLog | 4 ++++ gdb/gdbtk.tcl | 9 +++++++++ 2 files changed, 13 insertions(+) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 1542eb3..711fa10 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 a142c3d..9f52096 100644 --- a/gdb/gdbtk.tcl +++ b/gdb/gdbtk.tcl @@ -1283,6 +1283,7 @@ bind .command.text { bind .command.text {focus %W} bind .command.text {delete_char %W} bind .command.text {delete_char %W} +bind .command.text {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 -- 2.7.4