2000-02-17 20:17:13 +00:00
|
|
|
--- ../../generic/tixInit.c.orig Thu Feb 11 18:11:44 1999
|
|
|
|
|
+++ ../../generic/tixInit.c Thu Feb 17 19:46:36 2000
|
|
|
|
|
@@ -499,7 +499,7 @@
|
|
|
|
|
*----------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
-static char *initScript =
|
|
|
|
|
+static char initScript[] =
|
|
|
|
|
"if [catch {file join a a}] {\n\
|
|
|
|
|
proc tixFileJoin {args} {\n\
|
|
|
|
|
set p [join $args /]\n\
|
1999-12-05 06:46:34 +00:00
|
|
|
@@ -537,6 +537,7 @@
|
|
|
|
|
}\n\
|
|
|
|
|
set instDir [file dirname [info library]]\n\
|
|
|
|
|
lappend dirs [tixFileJoin $instDir $lib]\n\
|
|
|
|
|
+ lappend dirs " TIX_LIBRARY "\n\
|
|
|
|
|
lappend dirs [tixFileJoin [tixFileJoin $instDir lib] $lib]\n\
|
|
|
|
|
catch {\n\
|
|
|
|
|
lappend dirs [tixFileJoin [tixFileJoin [file dirname [file dirname [info nameofexecutable]]] lib] $lib]\n\
|
