diff options
author | Andrew Cagney <cagney@redhat.com> | 2003-06-03 20:54:43 +0000 |
---|---|---|
committer | Andrew Cagney <cagney@redhat.com> | 2003-06-03 20:54:43 +0000 |
commit | 1684382a9110efd6523ce304cb99c869053323c8 (patch) | |
tree | 40364f6d12e4c278425f9de47c2f4e15c98e8076 /gdb/gdbtk/library/ehandler.itb | |
parent | 2729fb2483899a9b69e0d73500c79373156f27a7 (diff) | |
download | gdb-cvs/cagney_writestrings-20030508-branch.tar.gz |
Snap const char * mess.cvs/cagney_writestrings-20030508-branchcagney_writestrings-20030508-branch
Diffstat (limited to 'gdb/gdbtk/library/ehandler.itb')
-rw-r--r-- | gdb/gdbtk/library/ehandler.itb | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/gdb/gdbtk/library/ehandler.itb b/gdb/gdbtk/library/ehandler.itb deleted file mode 100644 index e949c988317..00000000000 --- a/gdb/gdbtk/library/ehandler.itb +++ /dev/null @@ -1,31 +0,0 @@ -# GDBEventHandler class implementation for Insight. -# Copyright 2001 Red Hat, Inc. -# -# This program is free software; you can redistribute it and/or modify it -# under the terms of the GNU General Public License (GPL) as published by -# the Free Software Foundation; either version 2 of the License, or (at -# your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. - -# ------------------------------------------------------------ -# PUBLIC PROC: dispatch - Dispatch the given event to all -# event handlers. The name of the handler -# method to call is stored in the event's -# "handler" method. -# ------------------------------------------------------------ -itcl::body GDBEventHandler::dispatch {event} { - - set handler [$event handler] - - # invoke event handlers - foreach w [itcl_info objects -isa GDBEventHandler] { - dbug I "posting event \"$handler\" to \"$w\"" - if {[catch {$w $handler $event}]} { - dbug E "On $handler event, $w errored:\n$::errorInfo" - } - } -} |