From 006bcd5475f3a1f622a646f0a3e1c4bb437412bc Mon Sep 17 00:00:00 2001 From: Keith Seitz Date: Mon, 4 Jun 2001 15:49:53 +0000 Subject: * library/interface.tcl (gdb_update_hook): Mark as deprecated. (gdbtk_update): Dispatch and UpdateEvent, too. * library/ehandler.ith (update): New event handler. * library/gdbevent.ith (UpdateEvent): New event. * library/gdbevent.itb (UpdateEvent::constructor): New method. (UpdateEvent::get): New method. * library/kod.ith (udpate): Match event handler definition. * library/kod.itb (update): Ditto. (build_win): Pass dummy argument to update method. (top): Ditto. (up): Ditto. (set_variable): Ditto. * library/memwin.ith (update): Match event handler definition. * library/memwin.itb (update): Ditto. (constructor): Remove gdb_update_hook. (destructor): Ditto. * library/process.ith (update): Match event handler definition. * library/process.itb (update): Ditto. (constructor): Remove gdb_update_hook. (destructor): Ditto. (build_win): Pass dummy argument to update method. * library/regwin.ith (update): Match event handler definition. * library/regwin.itb (update): Ditto. (constructor): Remove gdb_update_hook. (destructor): Ditto. (build_win): Pass dummy argument to update method. (but3): Ditto. (unedit): Ditto. * library/stackwin.ith (update): Match event handler definition. * library/stackwin.itb (update): Ditto. (constructor): Remove gdb_update_hook. (destructor): Ditto. (build_win): Pass dummy argument to update method. * library/tdump.tcl (update): Match event handler definition. (constructor): Remove gdb_update_hook. (destructor): Ditto. (build_win): Pass dummy argument to update method. * library/variables.tcl (update): Match event handler definition. (build_win): Pass dummy argument to update method. * library/locals.tcl (update): Match event handler definition. (constructor): Pass dummy argument to update method. * library/watch.tcl (update): Match event handler definition. Pass dummy argument to VariableWin::update. (add): Pass dummy argument to update method. * library/srcwin.ith (update): New method. (update_hook_init): Remove. * library/srcwin.itb (update): New method. (constructor): Remove gdb_update_hook. (destructor): Ditto. * tclIndex: Regenerate. --- gdb/gdbtk/library/interface.tcl | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'gdb/gdbtk/library/interface.tcl') 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 -- cgit v1.2.1