From 960cdf29197bc3f5922110cf26627aa9709ac79b Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Fri, 10 Jun 2005 10:29:11 +0000
Subject: This commit was manufactured by cvs2svn to create branch 'bogue40'.

---
 starkit/demo.tcl |  4 ----
 starkit/main.tcl | 35 -----------------------------------
 2 files changed, 39 deletions(-)
 delete mode 100644 starkit/demo.tcl
 delete mode 100644 starkit/main.tcl

(limited to 'starkit')

diff --git a/starkit/demo.tcl b/starkit/demo.tcl
deleted file mode 100644
index ed1c373..0000000
--- a/starkit/demo.tcl
+++ /dev/null
@@ -1,4 +0,0 @@
-
-set path [file dirname [info script]]
-
-source [file join [lindex [glob -directory [file join $path lib] Tkzinc*] 0] demos zinc-widget]
diff --git a/starkit/main.tcl b/starkit/main.tcl
deleted file mode 100644
index 724f807..0000000
--- a/starkit/main.tcl
+++ /dev/null
@@ -1,35 +0,0 @@
-
-package require starkit
-
-set method [starkit::startup]
-if { $method eq "sourced"} return
-
-array set help {
-    demo { Launch a package demo
-
-	Usage: demo package
-    }
-}
-
-set action [lindex $argv 0]
-set path [file dirname [info script]]
-
-set validActions [array names help]
-if { $action eq "" ||
-     ($action eq "help" && [llength $argv] == 1 &&
-      [lsearch $validActions $action] < 0) } {
-    puts "Specify one of the following commands:\n"
-    foreach c [array names help] {
-	puts -nonewline " $c"
-    }
-    puts "\n\nFor more information, type: $argv0 help ?command?"
-    exit
-} elseif { $action eq "help" } {
-    set cmd [lindex $argv 1]
-    puts $help($cmd)
-    exit
-}
-
-set argv [lrange $argv 1 end]
-
-source [file join $path $action.tcl]
-- 
cgit v1.1