OpenE2K/binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
Stu Grossman 1994-09-18 00:07:56 +00:00
parent 4c664b8d0a
commit a5cffdc44a
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gdb/ChangeLog
View File

@ -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

9
gdb/gdbtk.tcl
View File

@ -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