diff options
author | cvs2svn | 2005-06-10 10:29:11 +0000 |
---|---|---|
committer | cvs2svn | 2005-06-10 10:29:11 +0000 |
commit | 960cdf29197bc3f5922110cf26627aa9709ac79b (patch) | |
tree | 7d6e4a472376b203d21826c2230b4a8c6a9024bd /starkit | |
parent | 3fc9c4bc1d6f70db41ad418992bf3d461059d3c0 (diff) | |
download | tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.zip tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.gz tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.bz2 tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.xz |
This commit was manufactured by cvs2svn to create branch 'bogue40'.
Diffstat (limited to 'starkit')
-rw-r--r-- | starkit/demo.tcl | 4 | ||||
-rw-r--r-- | starkit/main.tcl | 35 |
2 files changed, 0 insertions, 39 deletions
diff --git a/starkit/demo.tcl b/starkit/demo.tcl deleted file mode 100644 index ed1c373..0000000 --- a/starkit/demo.tcl +++ /dev/null @@ -1,4 +0,0 @@ - -set path [file dirname [info script]] - -source [file join [lindex [glob -directory [file join $path lib] Tkzinc*] 0] demos zinc-widget] diff --git a/starkit/main.tcl b/starkit/main.tcl deleted file mode 100644 index 724f807..0000000 --- a/starkit/main.tcl +++ /dev/null @@ -1,35 +0,0 @@ - -package require starkit - -set method [starkit::startup] -if { $method eq "sourced"} return - -array set help { - demo { Launch a package demo - - Usage: demo package - } -} - -set action [lindex $argv 0] -set path [file dirname [info script]] - -set validActions [array names help] -if { $action eq "" || - ($action eq "help" && [llength $argv] == 1 && - [lsearch $validActions $action] < 0) } { - puts "Specify one of the following commands:\n" - foreach c [array names help] { - puts -nonewline " $c" - } - puts "\n\nFor more information, type: $argv0 help ?command?" - exit -} elseif { $action eq "help" } { - set cmd [lindex $argv 1] - puts $help($cmd) - exit -} - -set argv [lrange $argv 1 end] - -source [file join $path $action.tcl] |