From 4c6cac6e9141a4233c357cf45057de30327586d0 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 24 Sep 2004 12:23:31 +0000
Subject: *** empty log message ***

---
 starkit/demo.tcl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 starkit/demo.tcl

(limited to 'starkit/demo.tcl')

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
+}
-- 
cgit v1.1