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 ++++++++
starkit/main.tcl | 35 ++++++++++++++
win/Tkzinc.aip.in | 6 +--
win/Tkzincperl.aip.in | 128 +++++++++++++++++++++++++-------------------------
4 files changed, 122 insertions(+), 67 deletions(-)
create mode 100644 starkit/demo.tcl
create mode 100644 starkit/main.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
+}
diff --git a/starkit/main.tcl b/starkit/main.tcl
new file mode 100644
index 0000000..724f807
--- /dev/null
+++ b/starkit/main.tcl
@@ -0,0 +1,35 @@
+
+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]
diff --git a/win/Tkzinc.aip.in b/win/Tkzinc.aip.in
index 1fb4d90..d7fc904 100644
--- a/win/Tkzinc.aip.in
+++ b/win/Tkzinc.aip.in
@@ -25,7 +25,7 @@
|
- |
+ |
|
|
|
@@ -35,7 +35,7 @@
|
- |
+ |
|
@@ -49,7 +49,7 @@
|
|
|
- |
+ |
|
|
|
diff --git a/win/Tkzincperl.aip.in b/win/Tkzincperl.aip.in
index 2f48c39..b6e5e02 100644
--- a/win/Tkzincperl.aip.in
+++ b/win/Tkzincperl.aip.in
@@ -43,75 +43,75 @@
|
|
|
- |
+ |
|
- |
+ |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
- |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+ |
|
--
cgit v1.1