/*
* Ttk_QueryStyle --
* Look up a style option based on the current state.
*/
Tcl_Obj *Ttk_QueryStyle(
Ttk_Style style, /* Style to query */
void *recordPtr, /* Widget record */
Tk_OptionTable optionTable, /* Option table describing widget record */
const char *optionName, /* Option name */
Ttk_State state) /* Current state */
{
const Tk_OptionSpec *optionSpec;
Tcl_Obj *result;
/*
* Check widget record:
*/
optionSpec = TTKGetOptionSpec(optionName, optionTable, TK_OPTION_ANY);
if (optionSpec) {
result = *(Tcl_Obj**)(((char*)recordPtr) + optionSpec->objOffset);
if (result) {
return result;
}
}
/*
* Check dynamic settings:
*/
result = Ttk_StyleMap(style, optionName, state);
if (result) {
return result;
}
/*
* Use style default:
*/
return Ttk_StyleDefault(style, optionName);
}
void Ttk_TagSetApplyStyle(
Ttk_TagTable tagTable, Ttk_Style style, Ttk_State state, void *record)
{
Tk_OptionSpec *optionSpec = tagTable->optionSpecs;
while (optionSpec->type != TK_OPTION_END) {
int offset = optionSpec->objOffset;
const char *optionName = optionSpec->optionName;
Tcl_Obj *val = Ttk_StyleMap(style, optionName, state);
if (val) {
OBJ_AT(record, offset) = val;
} else if (OBJ_AT(record, offset) == 0) {
OBJ_AT(record, offset) = Ttk_StyleDefault(style, optionName);
}
++optionSpec;
}
}
static
int InitializeElementRecord(
Ttk_ElementClass *eclass, /* Element instance to initialize */
Ttk_Style style, /* Style table */
char *widgetRecord, /* Source of widget option values */
Tk_OptionTable optionTable, /* Option table describing widget record */
Tk_Window tkwin, /* Corresponding window */
Ttk_State state) /* Widget or element state */
{
char *elementRecord = eclass->elementRecord;
OptionMap optionMap = GetOptionMap(eclass,optionTable);
int nResources = eclass->nResources;
Ttk_ResourceCache cache = style->cache;
Ttk_ElementOptionSpec *elementOption = eclass->specPtr->options;
int i;
for (i=0; i<nResources; ++i, ++elementOption) {
Tcl_Obj **dest = (Tcl_Obj **)
(elementRecord + elementOption->offset);
const char *optionName = elementOption->optionName;
Tcl_Obj *dynamicSetting = Ttk_StyleMap(style, optionName, state);
Tcl_Obj *widgetValue = 0;
Tcl_Obj *elementDefault = eclass->defaultValues[i];
if (optionMap[i]) {
widgetValue = *(Tcl_Obj **)
(widgetRecord + optionMap[i]->objOffset);
}
if (widgetValue) {
*dest = widgetValue;
} else if (dynamicSetting) {
*dest = dynamicSetting;
} else {
Tcl_Obj *styleDefault = Ttk_StyleDefault(style, optionName);
*dest = styleDefault ? styleDefault : elementDefault;
}
if (!AllocateResource(cache, tkwin, dest, elementOption->type)) {
return 0;
}
}
return 1;
}