File: main.tcl

package info (click to toggle)
tk-html3 3.0~fossil20110109-6
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 6,644 kB
  • ctags: 5,882
  • sloc: ansic: 48,994; tcl: 26,030; sh: 1,190; yacc: 161; makefile: 24
file content (20 lines) | stat: -rw-r--r-- 347 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#
# This is the main.tcl file used to create a starkit from the hv.tcl
# application.
#

package require starkit
if {[starkit::startup] eq "sourced"} return

if {[llength $argv] == 0} {
    set argv [file join [file dirname [info script]] index.html]
}

rename exit exit_original
proc exit {args} {
    ::tk::htmlexit
}

package require app-hv3