static int
RadiobuttonPostConfigure(Tcl_Interp *interp, void *recordPtr, int mask)
{
Radiobutton *radioPtr = recordPtr;
int status = TCL_OK;
if (radioPtr->radiobutton.variableTrace)
status = Ttk_FireTrace(radioPtr->radiobutton.variableTrace);
if (status == TCL_OK && !WidgetDestroyed(&radioPtr->core))
status = BasePostConfigure(interp, recordPtr, mask);
return status;
}
static int
BasePostConfigure(Tcl_Interp *interp, void *recordPtr, int mask)
{
Base *basePtr = recordPtr;
int status = TCL_OK;
if (basePtr->base.textVariableTrace) {
status = Ttk_FireTrace(basePtr->base.textVariableTrace);
}
return status;
}
/* ScalePostConfigure --
* Post-configuration hook.
*/
static int ScalePostConfigure(
Tcl_Interp *interp, void *recordPtr, int mask)
{
Scale *scale = recordPtr;
int status = TCL_OK;
if (scale->scale.variableTrace) {
status = Ttk_FireTrace(scale->scale.variableTrace);
if (WidgetDestroyed(&scale->core)) {
return TCL_ERROR;
}
if (status != TCL_OK) {
/* Unset -variable: */
Ttk_UntraceVariable(scale->scale.variableTrace);
Tcl_DecrRefCount(scale->scale.variableObj);
scale->scale.variableTrace = 0;
scale->scale.variableObj = NULL;
status = TCL_ERROR;
}
}
return status;
}
