diff options
| author | Stu Grossman <grossman@cygnus> | 1994-09-18 00:07:56 +0000 |
|---|---|---|
| committer | Stu Grossman <grossman@cygnus> | 1994-09-18 00:07:56 +0000 |
| commit | a5cffdc44a230f803866d2e13aed569e6e1790ec (patch) | |
| tree | fe519b3dee5baeab6c3ff8086ae8892347e5cf54 /gdb | |
| parent | 4c664b8d0ac4c98faac11fd247688fdeae5cea86 (diff) | |
| download | gdb-a5cffdc44a230f803866d2e13aed569e6e1790ec.zip gdb-a5cffdc44a230f803866d2e13aed569e6e1790ec.tar.gz gdb-a5cffdc44a230f803866d2e13aed569e6e1790ec.tar.bz2 | |
* gdbtk.tcl: Let ^U delete lines in the command window.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/gdbtk.tcl | 9 |
2 files changed, 13 insertions, 0 deletions
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 <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 |