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.
# 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
}