diff options
| -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; |