diff options
Diffstat (limited to 'generic/tkOldConfig.c')
| -rw-r--r-- | generic/tkOldConfig.c | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/generic/tkOldConfig.c b/generic/tkOldConfig.c index 02d0e7d..ec2944b 100644 --- a/generic/tkOldConfig.c +++ b/generic/tkOldConfig.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkOldConfig.c,v 1.1.2.2 1998/09/30 02:17:12 stanton Exp $ + * RCS: @(#) $Id: tkOldConfig.c,v 1.1.2.3 1999/01/07 02:42:50 lfb Exp $ */ #include "tkPort.h" @@ -462,6 +462,12 @@ DoConfig(interp, tkwin, specPtr, value, valueIsUid, widgRec) return TCL_ERROR; } break; + case TK_CONFIG_STATE: + uid = valueIsUid ? (Tk_Uid) value : Tk_GetUid(value); + if (Tk_GetState(interp, uid, (int *) ptr) != TCL_OK) { + return TCL_ERROR; + } + break; case TK_CONFIG_CURSOR: case TK_CONFIG_ACTIVE_CURSOR: { Tk_Cursor new, old; @@ -819,6 +825,9 @@ FormatConfigValue(interp, tkwin, specPtr, widgRec, buffer, freeProcPtr) case TK_CONFIG_RELIEF: result = Tk_NameOfRelief(*((int *) ptr)); break; + case TK_CONFIG_STATE: + result = Tk_NameOfState(*((int *) ptr)); + break; case TK_CONFIG_CURSOR: case TK_CONFIG_ACTIVE_CURSOR: { Tk_Cursor cursor = *((Tk_Cursor *) ptr); |