Posted to tcl by patthoyts at Sun Dec 07 19:07:20 GMT 2008view raw
- diff -u -r1.20 ttkWidget.c
- --- generic/ttk/ttkWidget.c 3 Dec 2008 18:44:50 -0000 1.20
- +++ generic/ttk/ttkWidget.c 7 Dec 2008 01:43:50 -0000
- @@ -483,16 +483,27 @@
- Tcl_Interp *interp, Ttk_Theme themePtr, void *recordPtr)
- {
- WidgetCore *corePtr = recordPtr;
- + Ttk_Layout layout;
- + Tcl_DString ds;
- const char *styleName = 0;
- + Tcl_DStringInit(&ds);
- if (corePtr->styleObj)
- styleName = Tcl_GetString(corePtr->styleObj);
- - if (!styleName || *styleName == '\0')
- + if (!styleName || *styleName == '\0') {
- styleName = corePtr->widgetSpec->className;
- + if (corePtr->state & TTK_STATE_READONLY) {
- + Tcl_DStringAppend(&ds, "Readonly.", -1);
- + Tcl_DStringAppend(&ds, styleName, -1);
- + styleName = Tcl_DStringValue(&ds);
- + }
- + }
- - return Ttk_CreateLayout(interp, themePtr, styleName,
- + layout = Ttk_CreateLayout(interp, themePtr, styleName,
- recordPtr, corePtr->optionTable, corePtr->tkwin);
- + Tcl_DStringFree(&ds);
- + return layout;
- }
- /*