diff options
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 +} |