diff options
| author | stanton <stanton@noemail.net> | 1998-07-24 15:46:14 (GMT) |
|---|---|---|
| committer | stanton <stanton@noemail.net> | 1998-07-24 15:46:14 (GMT) |
| commit | e0e8ad3c717da1facbf8033295dcf2bb993a715b (patch) | |
| tree | ea33c06141d5ea73561e265dce9a8f7c3aac61db | |
| parent | fd40be7452e2600a9912f20579eb6c5538e72cf4 (diff) | |
| download | tk-e0e8ad3c717da1facbf8033295dcf2bb993a715b.zip tk-e0e8ad3c717da1facbf8033295dcf2bb993a715b.tar.gz tk-e0e8ad3c717da1facbf8033295dcf2bb993a715b.tar.bz2 | |
eliminated static init for library directory
FossilOrigin-Name: 8f521891620506db6fb59ca193754ddb9fd7333f
| -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); } |