summaryrefslogtreecommitdiffstats
path: root/generic/ttk/ttkStubLib.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/ttk/ttkStubLib.c')
-rw-r--r--generic/ttk/ttkStubLib.c12
1 files changed, 9 insertions, 3 deletions
diff --git a/generic/ttk/ttkStubLib.c b/generic/ttk/ttkStubLib.c
index faeabe8..a3b3376 100644
--- a/generic/ttk/ttkStubLib.c
+++ b/generic/ttk/ttkStubLib.c
@@ -34,17 +34,23 @@ TtkInitializeStubs(
Tcl_Interp *interp, const char *version, int epoch, int revision)
{
int exact = 0;
- const char *packageName = "Ttk";
+ const char *packageName = "ttk";
const char *errMsg = NULL;
void *pkgClientData = NULL;
const char *actualVersion = Tcl_PkgRequireEx(
interp, packageName, version, exact, &pkgClientData);
- const TtkStubs *stubsPtr = (const TtkStubs *)pkgClientData;
+ const TtkStubs *stubsPtr;
if (!actualVersion) {
- return NULL;
+ packageName = "Ttk";
+ actualVersion = Tcl_PkgRequireEx(
+ interp, packageName, version, exact, &pkgClientData);
+ if (!actualVersion) {
+ return NULL;
+ }
}
+ stubsPtr = (const TtkStubs *)pkgClientData;
if (!stubsPtr) {
errMsg = "missing stub table pointer";
goto error;