static int AddPane(
Tcl_Interp *interp, Paned *pw,
int destIndex, Tk_Window slaveWindow,
int objc, Tcl_Obj *const objv[])
{
Pane *pane;
if (!Ttk_Maintainable(interp, slaveWindow, pw->core.tkwin)) {
return TCL_ERROR;
}
if (Ttk_SlaveIndex(pw->paned.mgr, slaveWindow) >= 0) {
Tcl_AppendResult(interp,
Tk_PathName(slaveWindow), " already added",
NULL);
return TCL_ERROR;
}
pane = CreatePane(interp, pw, slaveWindow);
if (!pane) {
return TCL_ERROR;
}
if (ConfigurePane(interp, pw, pane, slaveWindow, objc, objv) != TCL_OK) {
DestroyPane(pw, pane);
return TCL_ERROR;
}
Ttk_InsertSlave(pw->paned.mgr, destIndex, slaveWindow, pane);
return TCL_OK;
}
/* LabelframeConfigure --
* Configuration hook.
*/
static int LabelframeConfigure(Tcl_Interp *interp,void *recordPtr,int mask)
{
Labelframe *lframePtr = recordPtr;
Tk_Window labelWidget = lframePtr->label.labelWidget;
Ttk_PositionSpec unused;
/* Validate options:
*/
if (mask & LABELWIDGET_CHANGED && labelWidget != NULL) {
if (!Ttk_Maintainable(interp, labelWidget, lframePtr->core.tkwin)) {
return TCL_ERROR;
}
}
if (TtkGetLabelAnchorFromObj(
interp, lframePtr->label.labelAnchorObj, &unused) != TCL_OK)
{
return TCL_ERROR;
}
/* Base class configuration:
*/
if (FrameConfigure(interp, recordPtr, mask) != TCL_OK) {
return TCL_ERROR;
}
/* Update -labelwidget changes, if any:
*/
if (mask & LABELWIDGET_CHANGED) {
if (Ttk_NumberSlaves(lframePtr->label.mgr) == 1) {
Ttk_ForgetSlave(lframePtr->label.mgr, 0);
/* Restore labelWidget field (see <<NOTE-LABELREMOVED>>)
*/
lframePtr->label.labelWidget = labelWidget;
}
if (labelWidget) {
Ttk_InsertSlave(lframePtr->label.mgr, 0, labelWidget, NULL);
RaiseLabelWidget(lframePtr);
}
}
if (mask & GEOMETRY_CHANGED) {
Ttk_ManagerSizeChanged(lframePtr->label.mgr);
Ttk_ManagerLayoutChanged(lframePtr->label.mgr);
}
return TCL_OK;
}
