From fda6fadc0dacdf23d85af0da8546e30ae8d79f73 Mon Sep 17 00:00:00 2001 From: Stan Shebs Date: Fri, 5 Apr 1996 21:52:38 +0000 Subject: * 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. --- gdb/gdbtk.tcl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'gdb/gdbtk.tcl') 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 -- cgit v1.1