diff options
| author | Stan Shebs <shebs@codesourcery.com> | 1996-04-05 21:52:38 +0000 |
|---|---|---|
| committer | Stan Shebs <shebs@codesourcery.com> | 1996-04-05 21:52:38 +0000 |
| commit | fda6fadc0dacdf23d85af0da8546e30ae8d79f73 (patch) | |
| tree | 06042c51b20af6e5514d7646db26f6e8044856ad /gdb/gdbtk.tcl | |
| parent | 6cc7365e2b682389efdaf16431189f7762805bc3 (diff) | |
| download | gdb-fda6fadc0dacdf23d85af0da8546e30ae8d79f73.zip gdb-fda6fadc0dacdf23d85af0da8546e30ae8d79f73.tar.gz gdb-fda6fadc0dacdf23d85af0da8546e30ae8d79f73.tar.bz2 | |
* gdbtk.c (running_now): New global variable.
(gdb_cmd): Test it before executing any command.
(gdbtk_call_command): Set it when inferior is running.
* gdbtk.tcl (gdbtk_tcl_busy, gdbtk_tcl_idle): Enable and
disable interaction with command window's text appropriately.
Diffstat (limited to 'gdb/gdbtk.tcl')
| -rw-r--r-- | gdb/gdbtk.tcl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl index 148517f..60e1628 100644 --- a/gdb/gdbtk.tcl +++ b/gdb/gdbtk.tcl @@ -668,6 +668,9 @@ proc delete_breakpoint_tag {win line} { } proc gdbtk_tcl_busy {} { + if {[winfo exists .cmd]} { + .cmd.text configure -state disabled + } if {[winfo exists .src]} { .src.start configure -state disabled .src.stop configure -state normal @@ -692,6 +695,9 @@ proc gdbtk_tcl_busy {} { } proc gdbtk_tcl_idle {} { + if {[winfo exists .cmd]} { + .cmd.text configure -state normal + } if {[winfo exists .src]} { .src.start configure -state normal .src.stop configure -state disabled @@ -703,7 +709,6 @@ proc gdbtk_tcl_idle {} { .src.down configure -state normal .src.bottom configure -state normal } - if {[winfo exists .asm]} { .asm.stepi configure -state normal .asm.nexti configure -state normal |