diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-18 13:20:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-18 13:20:43 (GMT) |
| commit | dc4432db15fb2cbb21a3411834e283d5208945e8 (patch) | |
| tree | 25aa151a371dc7270c44986662c642fce436bc48 /unix/tkAppInit.c | |
| parent | 3a0a3af5fbfdc2275497d5eed3a34b77b82c7651 (diff) | |
| download | tk-dc4432db15fb2cbb21a3411834e283d5208945e8.zip tk-dc4432db15fb2cbb21a3411834e283d5208945e8.tar.gz tk-dc4432db15fb2cbb21a3411834e283d5208945e8.tar.bz2 | |
Use (preferred) Tcl_ObjSetVar2 in stead of Tcl_SetVar in tkAppInit.c/winMain.c.
Remove unneeded use of TEXT() macro, as in tclAppInit.c
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; } |