diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-01-14 13:48:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-01-14 13:48:03 (GMT) |
| commit | 863b32733a794411040f38374b375285ef08114b (patch) | |
| tree | 94a7466233e7a73007acc61a138d2a1b04aafeca /generic/tkWindow.c | |
| parent | a98aa6c20b6c17477a41ae639e92aa00214f3229 (diff) | |
| download | tk-863b32733a794411040f38374b375285ef08114b.zip tk-863b32733a794411040f38374b375285ef08114b.tar.gz tk-863b32733a794411040f38374b375285ef08114b.tar.bz2 | |
Replace various functions calls, for functions which are small wrappers around other functions, to call the wrapped function directly.
FossilOrigin-Name: cb8420c1d1cfcf429e49b78a9b97a824a99fdc52
Diffstat (limited to 'generic/tkWindow.c')
| -rw-r--r-- | generic/tkWindow.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tkWindow.c b/generic/tkWindow.c index f5131a8..db9b40f 100644 --- a/generic/tkWindow.c +++ b/generic/tkWindow.c @@ -993,8 +993,8 @@ TkCreateMainWindow( * Set variables for the intepreter. */ - Tcl_SetVar(interp, "tk_patchLevel", TK_PATCH_LEVEL, TCL_GLOBAL_ONLY); - Tcl_SetVar(interp, "tk_version", TK_VERSION, TCL_GLOBAL_ONLY); + Tcl_SetVar2(interp, "tk_patchLevel", NULL, TK_PATCH_LEVEL, TCL_GLOBAL_ONLY); + Tcl_SetVar2(interp, "tk_version", NULL, TK_VERSION, TCL_GLOBAL_ONLY); tsdPtr->numMainWindows++; return tkwin; @@ -3279,7 +3279,7 @@ Initialize( */ if (geometry != NULL) { - Tcl_SetVar(interp, "geometry", geometry, TCL_GLOBAL_ONLY); + Tcl_SetVar2(interp, "geometry", NULL, geometry, TCL_GLOBAL_ONLY); code = Tcl_VarEval(interp, "wm geometry . ", geometry, NULL); if (code != TCL_OK) { goto done; |