From 81ae689aa3a8a714e434e494e01f34b10c02e524 Mon Sep 17 00:00:00 2001 From: Fred Fish Date: Sat, 18 May 1996 00:24:41 +0000 Subject: * gdbtk.tcl (create_command_window): Change a misspelled "get" to the intended "cget". (delete_line): Fix so it deletes the current line at the insertion cursor. --- gdb/gdbtk.tcl | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) (limited to 'gdb/gdbtk.tcl') diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl index 3fcf2ce..30af7b3 100644 --- a/gdb/gdbtk.tcl +++ b/gdb/gdbtk.tcl @@ -2315,7 +2315,7 @@ proc create_command_window {} { set bsBinding [bind Text ] bind .cmd.text "delete_char %W ; $bsBinding; break" bind .cmd.text { - if {([%W get -state] == "disabled")} { break } + if {([%W cget -state] == "disabled")} { break } delete_char %W } bind .cmd.text { @@ -2400,18 +2400,27 @@ proc create_command_window {} { } } +# Trim one character off the command line. The argument is ignored. + proc delete_char {win} { global command_line set tmp [expr [string length $command_line] - 2] set command_line [string range $command_line 0 $tmp] } +# FIXME: This should actually check that the first characters of the current +# line match the gdb prompt, since the user can move the insertion point +# anywhere. It should also check that the insertion point is in the last +# line of the text widget. + proc delete_line {win} { - global command_line + global command_line + global gdb_prompt - $win delete {end linestart + 6 chars} end - $win see insert - set command_line {} + set tmp [string length $gdb_prompt] + $win delete "insert linestart + $tmp chars" "insert lineend" + $win see insert + set command_line {} } # -- cgit v1.1