#/bin/sh
# Next line starts the Tcl/Tk wish: \
exec wish $0 $*

if [catch {package require Tk 8}] {
  puts "ts requires Tcl/Tk 8.0 or above."
  puts "Please update it from http://sunscript.sun.com or mirror"
  exit 1
}

#################################################################
# Set the TS base directory in the following line
set TS_BASE /usr/local/lib/ts-9804
# Do you wish debug information
set params(debug) 0
##################################################################
# The TS version
set TS_VERSION 9804

source $TS_BASE/html_library.tcl
source $TS_BASE/ts.tcl
source $TS_BASE/ts_dlg.tcl
source $TS_BASE/ts_edit.tcl
source $TS_BASE/ts_editopt.tcl
source $TS_BASE/ts_exec.tcl
source $TS_BASE/ts_filedlg.tcl
source $TS_BASE/ts_help.tcl
source $TS_BASE/ts_ide.tcl
source $TS_BASE/ts_opt.tcl
source $TS_BASE/ts_optmenu.tcl
source $TS_BASE/ts_param.tcl
source $TS_BASE/ts_prj.tcl
source $TS_BASE/ts_prtdlg.tcl
source $TS_BASE/ts_spell.tcl
source $TS_BASE/ts_template.tcl
source $TS_BASE/ts_term.tcl
main
#StartTty()

proc CleanExit {} {
#  KillAllProcesses()
#  return 0
}

