From mboxrd@z Thu Jan  1 00:00:00 1970
From: Keith Seitz <keiths@cygnus.com>
To: Insight Maling List <insight@sources.redhat.com>
Subject: [PATCH] Run gdb_idle_hooks until all gone
Date: Thu, 31 May 2001 15:31:00 -0000
Message-id: <Pine.GSO.4.33.0105311527230.27811-100000@ryobi.cygnus.com>
X-SW-Source: 2001-q2/msg00311.html

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
 }