Tornado

Tornado 2.0
User’s Guide
Tcl: An Add-Symbols Command for the File Menu
As explained in What Modules to Debug, p.253, you sometimes need to tell the
debugger explicitly to load symbols for modules that were downloaded to the
target using other programs (such as the shell).
Example 7-3 illustrates a File menu command Add Symbols to handle this through
the graphical user interface, instead of typing the add-symbol-file command.
Example 7-3
Add-Symbols Command
# MENU COMMAND: "Add Symbols", additional entry under "File"
menuButtonCreate File "Add Symbols..." S { xwindAddSyms }
#############################################################################
#
#
# xwindAddSyms - called from File menu to add symbols from chosen object file
#
# This routine implements the "Add Symbols" command in the File menu.
# It prompts the user for a filename; if the user selects one, it tells
# GDB to load symbols from that file.
#
# SYNOPSIS:
# xwindAddSyms
#
# RETURNS: N/A
#
# ERRORS: N/A
#
proc xwindAddSyms {} {
set result [noticePost fileselect "Symbols from file" Add "*.\[o|out\]"]
if {$result != ""} {
# we violate good taste here by not capturing or testing the result
# of catch, because GDB poats an error message in the command panel
# when the file cannot be loaded.
}
}
catch {downtcl gdb add-symbol-file $result}
278