From bd0dbc880963f10c549711f8497693634eeede04 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 10 May 2004 15:32:29 +0000
Subject: *** empty log message ***

---
 win/package.tcl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 win/package.tcl

diff --git a/win/package.tcl b/win/package.tcl
new file mode 100644
index 0000000..3b129da
--- /dev/null
+++ b/win/package.tcl
@@ -0,0 +1,19 @@
+set packager {C:\Program Files\Caphyon\Advanced Installer\AdvancedInstaller.exe}
+set fout [open pkgIndex.tcl w]
+set fid [open [file join .. pkgIndex.tcl]];
+puts -nonewline $fout [read $fid];
+close $fid
+set fid [open [file join .. library pkgIndex.tcl]]
+foreach line [split [read $fid] \n] {
+    if {![regexp {^\s*$|^#} $line]} {
+	puts $fout $line
+    }
+}
+close $fid;
+close $fout
+
+file copy -force [file join .. demos zinc-widget] zinc-widget.tcl
+
+exec $packager /build Tkzinc.aip
+
+#file delete -force pkgIndex.tcl zinc-widget.tcl
-- 
cgit v1.1