Tornado

Tornado 2.0
User’s Guide
entries to the File menu. Of these two new entries, Open calls launchFileOpen,
which in turn calls launchEdit if the user selects a file to open.
Example 3-3
Open Command and Customized File Menu Initialization
#############################################################################
#
#
# launchExtInit - collects personal launcher initialization
#
# This routine is invoked when the launcher begins executing, and collects
# all the initialization (other than global and proc definitions)
# defined in this file.
#
# SYNOPSIS:
# launchExtInit
#
# RETURNS: N/A
#
# ERRORS: N/A
#
proc launchExtInit {} {
# "Reinitialize" command for Launcher.
# Adds item to File menu; calls Tcl "source" primitive directly.
menuButtonCreate File "Re-Read Tcl" T {
source ~/.wind/launch.tcl
}
# Add "Open" command to File menu
}
menuButtonCreate File "Open..." O {
launchFileOpen
;# defined in launch.tcl
}
#############################################################################
#
#
# launchFileOpen - called from File menu to run an editor on an arbitrary
file
#
# This routine supports an Open command added to the File menu. It prompts
# the user for a filename; if the user selects one, it calls launchEdit to
# edit the file.
#
# SYNOPSIS:
# launchFileOpen
#
# RETURNS: N/A
88