From 41aeb5a8744c3e4bfa42917a2a202f9c196d3415 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 1 Oct 2004 15:32:55 +0000
Subject: The demo is directly accessible with the keyword demo (without
 appending Tkzinc).

---
 starkit/demo.tcl | 18 +-----------------
 1 file changed, 1 insertion(+), 17 deletions(-)

(limited to 'starkit')

diff --git a/starkit/demo.tcl b/starkit/demo.tcl
index 1c7f2ab..ed1c373 100644
--- a/starkit/demo.tcl
+++ b/starkit/demo.tcl
@@ -1,20 +1,4 @@
 
-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
-}
+source [file join [lindex [glob -directory [file join $path lib] Tkzinc*] 0] demos zinc-widget]
-- 
cgit v1.1