1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
#/bin/sh
# Next line starts the Tcl/Tk wish: \
exec wish8.0 $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-9902
# Do you wish debug information
set params(debug) 0
##################################################################
# The TS version
set TS_VERSION 9902
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_keys.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
source $TS_BASE/ts_txt.tcl
main
#StartTty()
proc CleanExit {} {
# KillAllProcesses()
# return 0
}
|
