From 3f2dad8a8dcfbe27c3738a5a2ddb5f7d67656680 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Thu, 7 Mar 2013 16:00:17 +0000 Subject: Somewhat more benefit from TCL_GLOBAL_ONLY --- generic/tkCanvPs.c | 4 ++-- generic/tkFont.c | 2 +- win/tkWinDialog.c | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/generic/tkCanvPs.c b/generic/tkCanvPs.c index 244f993..c15d95f 100644 --- a/generic/tkCanvPs.c +++ b/generic/tkCanvPs.c @@ -198,8 +198,8 @@ TkCanvPostscriptCmd( if (result != TCL_OK) { return result; } - preambleObj = Tcl_GetVar2Ex(interp, "::tk::ps_preamble", NULL, - TCL_LEAVE_ERR_MSG | TCL_EVAL_GLOBAL); + preambleObj = Tcl_GetVar2Ex(interp, "tk::ps_preamble", NULL, + TCL_LEAVE_ERR_MSG | TCL_GLOBAL_ONLY); if (preambleObj == NULL) { return TCL_ERROR; } diff --git a/generic/tkFont.c b/generic/tkFont.c index 4485df8..959c20f 100644 --- a/generic/tkFont.c +++ b/generic/tkFont.c @@ -3297,7 +3297,7 @@ Tk_TextLayoutToPostscript( */ sprintf(uindex, "%04X", ch); /* endianness? */ - glyphname = Tcl_GetVar2(interp, "::tk::psglyphs", uindex, 0); + glyphname = Tcl_GetVar2(interp, "tk::psglyphs", uindex, TCL_GLOBAL_ONLY); if (glyphname) { ps = Tcl_GetStringFromObj(psObj, &len); if (ps[len-1] == '(') { diff --git a/win/tkWinDialog.c b/win/tkWinDialog.c index 35d07d1..d9030bd 100644 --- a/win/tkWinDialog.c +++ b/win/tkWinDialog.c @@ -1467,7 +1467,7 @@ Tk_ChooseDirectoryObjCmd( bInfo.ulFlags = BIF_EDITBOX | BIF_STATUSTEXT | BIF_RETURNFSANCESTORS | BIF_VALIDATE | BIF_NEWDIALOGSTYLE; - objPtr = Tcl_GetVar2Ex(interp, "::tk::winChooseDirFlags", NULL, + objPtr = Tcl_GetVar2Ex(interp, "tk::winChooseDirFlags", NULL, TCL_GLOBAL_ONLY); if (objPtr != NULL) { int flags; -- cgit v0.12