aboutsummaryrefslogtreecommitdiff
path: root/starkit/demo.tcl
blob: 1c7f2abe30834b7d47e7a4114950fe3e1a15c27c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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
}