Import Tk 8.6.11
This commit is contained in:
@@ -6,7 +6,7 @@
|
||||
#undef USE_TCL_STUBS
|
||||
#define USE_TCL_STUBS
|
||||
|
||||
#include "tk.h"
|
||||
#include "tkInt.h"
|
||||
|
||||
#define USE_TTK_STUBS 1
|
||||
#include "ttkTheme.h"
|
||||
@@ -36,10 +36,10 @@ TtkInitializeStubs(
|
||||
int exact = 0;
|
||||
const char *packageName = "Ttk";
|
||||
const char *errMsg = NULL;
|
||||
ClientData pkgClientData = NULL;
|
||||
void *pkgClientData = NULL;
|
||||
const char *actualVersion = Tcl_PkgRequireEx(
|
||||
interp, packageName, version, exact, &pkgClientData);
|
||||
const TtkStubs *stubsPtr = pkgClientData;
|
||||
const TtkStubs *stubsPtr = (const TtkStubs *)pkgClientData;
|
||||
|
||||
if (!actualVersion) {
|
||||
return NULL;
|
||||
@@ -67,7 +67,7 @@ error:
|
||||
"Error loading ", packageName, " package",
|
||||
" (requested version '", version,
|
||||
"', loaded version '", actualVersion, "'): ",
|
||||
errMsg,
|
||||
errMsg,
|
||||
NULL);
|
||||
return NULL;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user