/*
* 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);
}
/* BuildOptionMap --
* Construct the mapping from element options to widget options.
*/
static OptionMap
BuildOptionMap(ElementImpl *elementImpl, Tk_OptionTable optionTable)
{
OptionMap optionMap = (OptionMap)ckalloc(
sizeof(const Tk_OptionSpec) * elementImpl->nResources);
int i;
for (i = 0; i < elementImpl->nResources; ++i) {
Ttk_ElementOptionSpec *e = elementImpl->specPtr->options+i;
optionMap[i] = TTKGetOptionSpec(e->optionName, optionTable, e->type);
}
return optionMap;
}
