1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# make_pkgIndex.tcl
#
# Creates a pkgIndex.tcl file for in the Windows installation
# directory
#
# Copyright (c) 2000-2001 Tix Project Group.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# $Id: make_pkgIndex.tcl,v 1.4 2008/03/17 23:08:12 hobbs Exp $
if {[llength $argv] != 3} {
puts "usage: $argv0 <pkgIndex.tcl> <tix dll name> <tix version>"
exit -1
}
set fd [open [lindex $argv 0] {WRONLY TRUNC CREAT}]
puts -nonewline $fd "package ifneeded Tix [lindex $argv 2] "
puts -nonewline $fd "\[list load \[file join \$dir "
puts -nonewline $fd "[file tail [lindex $argv 1]]\] Tix\]"
puts $fd ""
puts -nonewline $fd "package ifneeded wm_default 1.0 "
puts -nonewline $fd "\[list source \[file join \$dir pref WmDefault.tcl\]\]"
puts $fd ""
close $fd
|
