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;
}
/*
* Ttk_RegisterCleanup --
*
* Register a function to be called when a theme engine is deleted.
* (This only happens when the main interp is destroyed). The cleanup
* function is called with the current Tcl interpreter and the client
* data provided here.
*
*/
void Ttk_RegisterCleanup(
Tcl_Interp *interp, ClientData clientData, Ttk_CleanupProc *cleanupProc)
{
StylePackageData *pkgPtr = GetStylePackageData(interp);
Cleanup *cleanup = (Cleanup*)ckalloc(sizeof(*cleanup));
cleanup->clientData = clientData;
cleanup->cleanupProc = cleanupProc;
cleanup->next = pkgPtr->cleanupList;
pkgPtr->cleanupList = cleanup;
}
/*
* Ttk_UseTheme --
* Set the current theme, notify all widgets that the theme has changed.
*/
int Ttk_UseTheme(Tcl_Interp *interp, Ttk_Theme theme)
{
StylePackageData *pkgPtr = GetStylePackageData(interp);
/*
* Check if selected theme is enabled:
*/
while (theme && !theme->enabledProc(theme, theme->enabledData)) {
theme = theme->parentPtr;
}
if (!theme) {
/* This shouldn't happen -- default theme should always work */
Tcl_Panic("No themes available?");
return TCL_ERROR;
}
pkgPtr->currentTheme = theme;
ThemeChanged(pkgPtr);
return TCL_OK;
}
/*
* Ttk_RegisterElementFactory --
* Register a new element factory.
*/
int Ttk_RegisterElementFactory(
Tcl_Interp *interp, const char *name,
Ttk_ElementFactory factory, void *clientData)
{
StylePackageData *pkgPtr = GetStylePackageData(interp);
FactoryRec *recPtr = (FactoryRec*)ckalloc(sizeof(*recPtr));
Tcl_HashEntry *entryPtr;
int newEntry;
recPtr->factory = factory;
recPtr->clientData = clientData;
entryPtr = Tcl_CreateHashEntry(&pkgPtr->factoryTable, name, &newEntry);
if (!newEntry) {
/* Free old factory: */
ckfree(Tcl_GetHashValue(entryPtr));
}
Tcl_SetHashValue(entryPtr, recPtr);
return TCL_OK;
}
/*
* Ttk_GetResourceCache --
* Return the resource cache associated with 'interp'
*/
Ttk_ResourceCache
Ttk_GetResourceCache(Tcl_Interp *interp)
{
StylePackageData *pkgPtr = GetStylePackageData(interp);
return pkgPtr->cache;
}
Ttk_Theme Ttk_GetDefaultTheme(Tcl_Interp *interp)
{
StylePackageData *pkgPtr = GetStylePackageData(interp);
return pkgPtr->defaultTheme;
}
Ttk_Theme Ttk_GetCurrentTheme(Tcl_Interp *interp)
{
StylePackageData *pkgPtr = GetStylePackageData(interp);
return pkgPtr->currentTheme;
}
/*
* Ttk_GetTheme --
* Public interface to LookupTheme.
*/
Ttk_Theme Ttk_GetTheme(Tcl_Interp *interp, const char *themeName)
{
StylePackageData *pkgPtr = GetStylePackageData(interp);
return LookupTheme(interp, pkgPtr, themeName);
}
