blob: 3b129dadb2997feaa349156c4998c4a558c5b336 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
|
