diff options
Diffstat (limited to 'unix/tkAppInit.c')
| -rw-r--r-- | unix/tkAppInit.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/unix/tkAppInit.c b/unix/tkAppInit.c index 5fce66e..b18179b 100644 --- a/unix/tkAppInit.c +++ b/unix/tkAppInit.c @@ -42,7 +42,7 @@ MODULE_SCOPE int main(int, char **); */ #ifdef TK_LOCAL_MAIN_HOOK -extern int TK_LOCAL_MAIN_HOOK(int *argc, char ***argv); +MODULE_SCOPE int TK_LOCAL_MAIN_HOOK(int *argc, char ***argv); #endif /* @@ -138,7 +138,8 @@ Tcl_AppInit( * specific startup file will be run under any conditions. */ - (Tcl_SetVar)(interp, "tcl_rcFileName", "~/.wishrc", TCL_GLOBAL_ONLY); + (Tcl_ObjSetVar2)(interp, Tcl_NewStringObj("tcl_rcFileName", -1), NULL, + Tcl_NewStringObj("~/.wishrc", -1), TCL_GLOBAL_ONLY); return TCL_OK; } |