diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-07 16:00:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-07 16:00:17 (GMT) |
| commit | 3f2dad8a8dcfbe27c3738a5a2ddb5f7d67656680 (patch) | |
| tree | 433163222d27e50926d1f3752958f542c1072aee | |
| parent | fa8e8bdc1f17f5e80540ecf8a72127c33133e0cf (diff) | |
| download | tk-3f2dad8a8dcfbe27c3738a5a2ddb5f7d67656680.zip tk-3f2dad8a8dcfbe27c3738a5a2ddb5f7d67656680.tar.gz tk-3f2dad8a8dcfbe27c3738a5a2ddb5f7d67656680.tar.bz2 | |
Somewhat more benefit from TCL_GLOBAL_ONLYdgp_review
| -rw-r--r-- | generic/tkCanvPs.c | 4 | ||||
| -rw-r--r-- | generic/tkFont.c | 2 | ||||
| -rw-r--r-- | 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; |