diff options
author | lecoanet | 2004-09-24 12:23:31 +0000 |
---|---|---|
committer | lecoanet | 2004-09-24 12:23:31 +0000 |
commit | 4c6cac6e9141a4233c357cf45057de30327586d0 (patch) | |
tree | 69ccbb3b455ef84db6069a300e9cf9aeb4db6440 /starkit/demo.tcl | |
parent | 28de4d50b04e981d3b78119fb87b5df18245cc1f (diff) | |
download | tkzinc-4c6cac6e9141a4233c357cf45057de30327586d0.zip tkzinc-4c6cac6e9141a4233c357cf45057de30327586d0.tar.gz tkzinc-4c6cac6e9141a4233c357cf45057de30327586d0.tar.bz2 tkzinc-4c6cac6e9141a4233c357cf45057de30327586d0.tar.xz |
*** empty log message ***
Diffstat (limited to 'starkit/demo.tcl')
-rw-r--r-- | starkit/demo.tcl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/starkit/demo.tcl b/starkit/demo.tcl new file mode 100644 index 0000000..1c7f2ab --- /dev/null +++ b/starkit/demo.tcl @@ -0,0 +1,20 @@ + +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 +} |