Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

* gdbtk.c (running_now): New global variable.

Browse Source 
(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.
This commit is contained in:
Stan Shebs
1996-04-05 21:52:38 +00:00
parent 6cc7365e2b
commit fda6fadc0d
3 changed files with 47 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/gdbtk.tcl
View File

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