diff options
Diffstat (limited to 'gdb/gdbtk.tcl')
| -rw-r--r-- | gdb/gdbtk.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
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 |