Tornado

3
Launcher
#
# ERRORS: N/A
#
proc launchFileOpen {} {
set result [noticePost fileselect "Open file" Open "*"]
if {$result != ""} {
launchEdit $result
}
}
3
#############################################################################
#
#
# launchEdit - run system editor on specified file
#
# This routine runs the system editor (as specified in the environment
# variable EDITOR, or vi if EDITOR is undefined) on the file specified
# in its argument.
#
# SYNOPSIS:
# launchEdit fname
#
# PARAMETERS:
# fname: the name of a file to edit
#
# RETURNS: N/A
#
# ERRORS: N/A
#
proc launchEdit {fname} {
# we need to examine environment variables
global env
if { ([file readable $fname] && ![file isdirectory $fname]) ||
([file writable [file dirname $fname]] && ![file exists $fname])
} then {
# We have an editable file
# Use the EDITOR environment variable, with vi default
if [info exists env(EDITOR)] {
set editor $env(EDITOR)
} else {
set editor vi
}
if [string match "emacsc*" $editor] {
# looks like emacsclient. Don't run an xterm; just put this
# in the background.
89