diff options
Diffstat (limited to 'gdb/gdbtk/library/interface.tcl')
-rw-r--r-- | gdb/gdbtk/library/interface.tcl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gdb/gdbtk/library/interface.tcl b/gdb/gdbtk/library/interface.tcl index d9d7fb287c5..6b87e7fd69d 100644 --- a/gdb/gdbtk/library/interface.tcl +++ b/gdb/gdbtk/library/interface.tcl @@ -67,10 +67,11 @@ proc gdbtk_tcl_set_variable {var val} { # time delays when enabling the UI. define_hook gdb_idle_hook +# *** DEPRECATED: Use GDBEventHandler::update instead. # GDB_UPDATE_HOOK # This hook is used to register a callback to update the widget # when debugger state has changed. -define_hook gdb_update_hook +#define_hook gdb_update_hook # GDB_NO_INFERIOR_HOOK # This hook is used to register a callback which should be invoked @@ -148,10 +149,10 @@ proc gdbtk_busy {} { # that could change target state. # ------------------------------------------------------------------ proc gdbtk_update {} { - set err [catch {run_hooks gdb_update_hook} txt] - if {$err} { - dbug E "$txt" - } + + set e [UpdateEvent \#auto] + GDBEventHandler::dispatch $e + delete object $e # Force the screen to update update |