diff options
author | lecoanet | 2004-05-10 15:32:29 +0000 |
---|---|---|
committer | lecoanet | 2004-05-10 15:32:29 +0000 |
commit | bd0dbc880963f10c549711f8497693634eeede04 (patch) | |
tree | e4eb22fc2635b0728adf6761046070c280be4078 /win/package.tcl | |
parent | 5a7c62c70fe11f779c18d5e245700a4df6850587 (diff) | |
download | tkzinc-bd0dbc880963f10c549711f8497693634eeede04.zip tkzinc-bd0dbc880963f10c549711f8497693634eeede04.tar.gz tkzinc-bd0dbc880963f10c549711f8497693634eeede04.tar.bz2 tkzinc-bd0dbc880963f10c549711f8497693634eeede04.tar.xz |
*** empty log message ***
Diffstat (limited to 'win/package.tcl')
-rw-r--r-- | win/package.tcl | 19 |
1 files changed, 19 insertions, 0 deletions
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 |