* library/interface.tcl (gdbtk_idle): Run hooks, too,

	until they're all gone.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index af08ce3..bcd178b 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,5 +1,10 @@
 2001-05-31  Keith Seitz  <keiths@redhat.com>
 
+       * library/interface.tcl (gdbtk_idle): Run hooks, too,
+       until they're all gone.
+
+2001-05-31  Keith Seitz  <keiths@redhat.com>
+
        * library/interface.tcl (gdb_idle_hook): Mark as deprecated.
        (gdbtk_idle): Dispatch an IdleEvent. gdb_idle_hook is gone.
        * library/ehandler.ith (idle): New event handler.

diff --git a/gdb/gdbtk/library/interface.tcl b/gdb/gdbtk/library/interface.tcl
index 4b15afb..d9d7fb2 100644 (file)
--- a/gdb/gdbtk/library/interface.tcl
+++ b/gdb/gdbtk/library/interface.tcl
@@ -194,16 +194,22 @@ 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
-  
+
   if {!$gdb_running} {
     set err [catch {run_hooks gdb_no_inferior_hook} txt]
     if {$err} { 
       dbug E "no_inferior_hook error: $txt" 
     }
-  }    
+  }
+
   # Force the screen to update
   update
 }