[PATCH] Run gdb_idle_hooks until all gone

[PATCH] Run gdb_idle_hooks until all gone

[Keith Seitz]

Hi,

I was a bit overzealous removing this hook: the stop button still uses it.
So we need to still run the hook(s) until this is fixed.

Keith

ChangeLog:
2001-05-31  Keith Seitz  <keiths@redhat.com>

	* library/interface.tcl (gdbtk_idle): Run hooks, too,
	until they're all gone.

Patch:
Index: library/interface.tcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/interface.tcl,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -p -w -r1.24 -r1.25
--- interface.tcl	2001/05/31 20:32:57	1.24
+++ interface.tcl	2001/05/31 22:11:27	1.25
@@ -194,6 +194,11 @@ proc gdbtk_idle {} {
   # could replace it.
   gdb_restore_fputs

+  set err [catch {run_hooks gdb_idle_hook}]
+  if {$err} {
+    dbug E "Error running gdb_idle_hook: $::errorInfo"
+  }
+
   set e [IdleEvent \#auto]
   GDBEventHandler::dispatch $e
   delete object $e
@@ -204,6 +209,7 @@ proc gdbtk_idle {} {
       dbug E "no_inferior_hook error: $txt"
     }
   }
+
   # Force the screen to update
   update
 }