static void
RadiobuttonCleanup(void *recordPtr)
{
Radiobutton *radioPtr = recordPtr;
Ttk_UntraceVariable(radioPtr->radiobutton.variableTrace);
radioPtr->radiobutton.variableTrace = 0;
BaseCleanup(recordPtr);
}
static void
CheckbuttonCleanup(void *recordPtr)
{
Checkbutton *checkPtr = recordPtr;
Ttk_UntraceVariable(checkPtr->checkbutton.variableTrace);
checkPtr->checkbutton.variableTrace = 0;
BaseCleanup(recordPtr);
}
static void ScaleCleanup(void *recordPtr)
{
Scale *scale = recordPtr;
if (scale->scale.variableTrace) {
Ttk_UntraceVariable(scale->scale.variableTrace);
scale->scale.variableTrace = 0;
}
}
static void
BaseCleanup(void *recordPtr)
{
Base *basePtr = recordPtr;
if (basePtr->base.textVariableTrace)
Ttk_UntraceVariable(basePtr->base.textVariableTrace);
if (basePtr->base.imageSpec)
TtkFreeImageSpec(basePtr->base.imageSpec);
}
static int BaseConfigure(Tcl_Interp *interp, void *recordPtr, int mask)
{
Base *basePtr = recordPtr;
Tcl_Obj *textVarName = basePtr->base.textVariableObj;
Ttk_TraceHandle *vt = 0;
Ttk_ImageSpec *imageSpec = NULL;
if (textVarName != NULL && *Tcl_GetString(textVarName) != '\0') {
vt = Ttk_TraceVariable(interp,textVarName,TextVariableChanged,basePtr);
if (!vt) return TCL_ERROR;
}
if (basePtr->base.imageObj) {
imageSpec = TtkGetImageSpec(
interp, basePtr->core.tkwin, basePtr->base.imageObj);
if (!imageSpec) {
goto error;
}
}
if (TtkCoreConfigure(interp, recordPtr, mask) != TCL_OK) {
error:
if (imageSpec) TtkFreeImageSpec(imageSpec);
if (vt) Ttk_UntraceVariable(vt);
return TCL_ERROR;
}
if (basePtr->base.textVariableTrace) {
Ttk_UntraceVariable(basePtr->base.textVariableTrace);
}
basePtr->base.textVariableTrace = vt;
if (basePtr->base.imageSpec) {
TtkFreeImageSpec(basePtr->base.imageSpec);
}
basePtr->base.imageSpec = imageSpec;
if (mask & STATE_CHANGED) {
TtkCheckStateOption(&basePtr->core, basePtr->base.stateObj);
}
return TCL_OK;
}
static int
RadiobuttonConfigure(Tcl_Interp *interp, void *recordPtr, int mask)
{
Radiobutton *radioPtr = recordPtr;
Ttk_TraceHandle *vt = Ttk_TraceVariable(
interp, radioPtr->radiobutton.variableObj,
RadiobuttonVariableChanged, radioPtr);
if (!vt) {
return TCL_ERROR;
}
if (BaseConfigure(interp, recordPtr, mask) != TCL_OK) {
Ttk_UntraceVariable(vt);
return TCL_ERROR;
}
Ttk_UntraceVariable(radioPtr->radiobutton.variableTrace);
radioPtr->radiobutton.variableTrace = vt;
return TCL_OK;
}
static int
CheckbuttonConfigure(Tcl_Interp *interp, void *recordPtr, int mask)
{
Checkbutton *checkPtr = recordPtr;
Ttk_TraceHandle *vt = Ttk_TraceVariable(
interp, checkPtr->checkbutton.variableObj,
CheckbuttonVariableChanged, checkPtr);
if (!vt) {
return TCL_ERROR;
}
if (BaseConfigure(interp, recordPtr, mask) != TCL_OK){
Ttk_UntraceVariable(vt);
return TCL_ERROR;
}
Ttk_UntraceVariable(checkPtr->checkbutton.variableTrace);
checkPtr->checkbutton.variableTrace = vt;
return TCL_OK;
}
/* ScaleConfigure --
* Configuration hook.
*/
static int ScaleConfigure(Tcl_Interp *interp, void *recordPtr, int mask)
{
Scale *scale = recordPtr;
Tcl_Obj *varName = scale->scale.variableObj;
Ttk_TraceHandle *vt = 0;
if (varName != NULL && *Tcl_GetString(varName) != '\0') {
vt = Ttk_TraceVariable(interp,varName, ScaleVariableChanged,recordPtr);
if (!vt) return TCL_ERROR;
}
if (TtkCoreConfigure(interp, recordPtr, mask) != TCL_OK) {
if (vt) Ttk_UntraceVariable(vt);
return TCL_ERROR;
}
if (scale->scale.variableTrace) {
Ttk_UntraceVariable(scale->scale.variableTrace);
}
scale->scale.variableTrace = vt;
return TCL_OK;
}
/* 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;
}
