From 3d366e6306d4cea5005356252808a735c5ec7de1 Mon Sep 17 00:00:00 2001 From: kseitz Date: Thu, 31 May 2001 22:11:26 +0000 Subject: [PATCH] * library/interface.tcl (gdbtk_idle): Run hooks, too, until they're all gone. --- gdb/gdbtk/ChangeLog | 5 +++++ gdb/gdbtk/library/interface.tcl | 10 ++++++++-- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index af08ce31c7..bcd178bfd9 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,5 +1,10 @@ 2001-05-31 Keith Seitz + * library/interface.tcl (gdbtk_idle): Run hooks, too, + until they're all gone. + +2001-05-31 Keith Seitz + * 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 4b15afbfa5..d9d7fb287c 100644 --- 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 } -- 2.11.0