diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-15 14:37:22 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-15 14:37:22 (GMT) |
| commit | 649bb87097dfc9ebfc2e4988e12e233e1a082c5a (patch) | |
| tree | 21019f9bc668c38b9a93f67378efa05983c859cf /generic/tkWindow.c | |
| parent | a761005e3247bd033727afc2b876d1ec8a289849 (diff) | |
| download | tk-649bb87097dfc9ebfc2e4988e12e233e1a082c5a.zip tk-649bb87097dfc9ebfc2e4988e12e233e1a082c5a.tar.gz tk-649bb87097dfc9ebfc2e4988e12e233e1a082c5a.tar.bz2 | |
Eliminate usage of Tcl_PkgProvide/Tcl_PkgRequire functions, use the 'Ex' versions in stead.
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 10ae820..d20473f 100644 --- a/generic/tkWindow.c +++ b/generic/tkWindow.c @@ -3391,7 +3391,7 @@ Tk_PkgInitStubsCheck( const char * version, int exact) { - const char *actualVersion = Tcl_PkgRequire(interp, "Tk", version, 0); + const char *actualVersion = Tcl_PkgRequireEx(interp, "Tk", version, 0, NULL); if (exact && actualVersion) { const char *p = version; @@ -3403,11 +3403,11 @@ Tk_PkgInitStubsCheck( if (count == 1) { if (0 != strncmp(version, actualVersion, strlen(version))) { /* Construct error message */ - Tcl_PkgPresent(interp, "Tk", version, 1); + Tcl_PkgPresentEx(interp, "Tk", version, 1, NULL); return NULL; } } else { - return Tcl_PkgPresent(interp, "Tk", version, 1); + return Tcl_PkgPresentEx(interp, "Tk", version, 1, NULL); } } return actualVersion; |