~ubuntu-branches/debian/sid/tk-html3/sid

« back to all changes in this revision

Viewing changes to tests/main.tcl

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2012-03-02 18:45:00 UTC
  • Revision ID: package-import@ubuntu.com-20120302184500-np17d7d6gd1jedj0
Tags: upstream-3.0~fossil20110109
ImportĀ upstreamĀ versionĀ 3.0~fossil20110109

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
 
 
2
#
 
3
# This is the main.tcl file used to create a starkit from the hv.tcl
 
4
# application.
 
5
#
 
6
 
 
7
package require starkit
 
8
if {[starkit::startup] eq "sourced"} return
 
9
 
 
10
if {[llength $argv] == 0} {
 
11
    set argv [file join [file dirname [info script]] index.html]
 
12
}
 
13
 
 
14
rename exit exit_original
 
15
proc exit {args} {
 
16
    ::tk::htmlexit
 
17
}
 
18
 
 
19
package require app-hv3
 
20