Ttk_Theme
Ttk_CreateTheme(
Tcl_Interp *interp, /* Interpreter in which to create theme */
const char *name, /* Name of the theme to create. */
Ttk_Theme parent) /* Parent/fallback theme, NULL for default */
{
StylePackageData *pkgPtr = GetStylePackageData(interp);
Tcl_HashEntry *entryPtr;
int newEntry;
Theme *themePtr;
entryPtr = Tcl_CreateHashEntry(&pkgPtr->themeTable, name, &newEntry);
if (!newEntry) {
Tcl_ResetResult(interp);
Tcl_AppendResult(interp, "Theme ", name, " already exists", NULL);
return NULL;
}
/*
* Initialize new theme:
*/
if (!parent) parent = pkgPtr->defaultTheme;
themePtr = NewTheme(pkgPtr->cache, parent);
Tcl_SetHashValue(entryPtr, (ClientData) themePtr);
return themePtr;
}
Ttk_Theme
Ttk_CreateTheme(
Tcl_Interp *interp, /* Interpreter in which to create theme */
const char *name, /* Name of the theme to create. */
Ttk_Theme parent) /* Parent/fallback theme, NULL for default */
{
StylePackageData *pkgPtr = GetStylePackageData(interp);
Tcl_HashEntry *entryPtr;
int newEntry;
Theme *themePtr;
entryPtr = Tcl_CreateHashEntry(&pkgPtr->themeTable, name, &newEntry);
if (!newEntry) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"Theme %s already exists", name));
Tcl_SetErrorCode(interp, "TTK", "THEME", "EXISTS", NULL);
return NULL;
}
/*
* Initialize new theme:
*/
if (!parent) parent = pkgPtr->defaultTheme;
themePtr = NewTheme(pkgPtr->cache, parent);
Tcl_SetHashValue(entryPtr, themePtr);
return themePtr;
}
