diff options
| author | lecoanet | 2004-10-01 15:32:55 +0000 |
|---|---|---|
| committer | lecoanet | 2004-10-01 15:32:55 +0000 |
| commit | 41aeb5a8744c3e4bfa42917a2a202f9c196d3415 (patch) | |
| tree | 93c526f38b67bd967d117396270ff81fa96724c6 | |
| parent | 8a91f58d9e3541e9abc4c5e44948fd4e38804f56 (diff) | |
| download | tkzinc-41aeb5a8744c3e4bfa42917a2a202f9c196d3415.zip tkzinc-41aeb5a8744c3e4bfa42917a2a202f9c196d3415.tar.gz tkzinc-41aeb5a8744c3e4bfa42917a2a202f9c196d3415.tar.bz2 tkzinc-41aeb5a8744c3e4bfa42917a2a202f9c196d3415.tar.xz | |
The demo is directly accessible with the keyword
demo (without appending Tkzinc).
| -rw-r--r-- | starkit/demo.tcl | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/starkit/demo.tcl b/starkit/demo.tcl index 1c7f2ab..ed1c373 100644 --- a/starkit/demo.tcl +++ b/starkit/demo.tcl @@ -1,20 +1,4 @@ -set Demos { Tkzinc } - -proc usage {} { - global Demos - puts "please specify a package from the following list:" - puts " [join $Demos { }]" -} - -if { [llength $argv] == 0 } { - usage - exit -} - set path [file dirname [info script]] -switch -- [lindex $argv 0] { - Tkzinc { source [file join [lindex [glob -directory [file join $path lib] Tkzinc*] 0] demos zinc-widget] } - default usage -} +source [file join [lindex [glob -directory [file join $path lib] Tkzinc*] 0] demos zinc-widget] |