diff options
| -rw-r--r-- | unix/tkUnixInit.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/unix/tkUnixInit.c b/unix/tkUnixInit.c index acfd8de..ef6fea0 100644 --- a/unix/tkUnixInit.c +++ b/unix/tkUnixInit.c @@ -21,13 +21,6 @@ */ #include "tkInitScript.h" - -/* - * Default directory in which to look for libraries: - */ - -static char defaultLibraryDir[200] = TK_LIBRARY; - /* *---------------------------------------------------------------------- @@ -51,12 +44,6 @@ int TkpInit(interp) Tcl_Interp *interp; { - char *libDir; - - libDir = Tcl_GetVar(interp, "tk_library", TCL_GLOBAL_ONLY); - if (libDir == NULL) { - Tcl_SetVar(interp, "tk_library", defaultLibraryDir, TCL_GLOBAL_ONLY); - } TkCreateXEventSource(); return Tcl_Eval(interp, initScript); } |