diff options
| author | dkf <dkf@noemail.net> | 2001-08-15 15:44:35 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2001-08-15 15:44:35 (GMT) |
| commit | 6453a7621fd28e90d1c08f5ee0d28b57b5f18065 (patch) | |
| tree | e817d32e68064c76449930b08bb891ff654501b8 /generic/tkConfig.c | |
| parent | 263aadeece71d60bab0d88d1477056c9054a0a8e (diff) | |
| download | tk-6453a7621fd28e90d1c08f5ee0d28b57b5f18065.zip tk-6453a7621fd28e90d1c08f5ee0d28b57b5f18065.tar.gz tk-6453a7621fd28e90d1c08f5ee0d28b57b5f18065.tar.bz2 | |
Register Tk's object types with Tcl (Tcl Bug 450545)
FossilOrigin-Name: 04f99fd0ff4d4a4cd5f360ae3d26fbd1efbd4647
Diffstat (limited to 'generic/tkConfig.c')
| -rw-r--r-- | generic/tkConfig.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tkConfig.c b/generic/tkConfig.c index 338edb9..ab8b55f 100644 --- a/generic/tkConfig.c +++ b/generic/tkConfig.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkConfig.c,v 1.14 2000/10/12 21:14:33 ericm Exp $ + * RCS: @(#) $Id: tkConfig.c,v 1.15 2001/08/15 15:44:36 dkf Exp $ */ /* @@ -140,7 +140,7 @@ static int SetOptionFromAny _ANSI_ARGS_((Tcl_Interp *interp, * and the internalPtr2 field points to the entry that matched. */ -Tcl_ObjType optionType = { +Tcl_ObjType tkOptionObjType = { "option", /* name */ (Tcl_FreeInternalRepProc *) NULL, /* freeIntRepProc */ (Tcl_DupInternalRepProc *) NULL, /* dupIntRepProc */ @@ -1042,7 +1042,7 @@ GetOptionFromObj(interp, objPtr, tablePtr) * First, check to see if the object already has the answer cached. */ - if (objPtr->typePtr == &optionType) { + if (objPtr->typePtr == &tkOptionObjType) { if (objPtr->internalRep.twoPtrValue.ptr1 == (VOID *) tablePtr) { return (Option *) objPtr->internalRep.twoPtrValue.ptr2; } @@ -1108,7 +1108,7 @@ GetOptionFromObj(interp, objPtr, tablePtr) } objPtr->internalRep.twoPtrValue.ptr1 = (VOID *) tablePtr; objPtr->internalRep.twoPtrValue.ptr2 = (VOID *) bestPtr; - objPtr->typePtr = &optionType; + objPtr->typePtr = &tkOptionObjType; return bestPtr; error: |