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
}
|