diff options
Diffstat (limited to 'generic/tkCursor.c')
| -rw-r--r-- | generic/tkCursor.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tkCursor.c b/generic/tkCursor.c index 6bbbbf6..ee2663e 100644 --- a/generic/tkCursor.c +++ b/generic/tkCursor.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: tkCursor.c,v 1.6 2000/07/06 06:38:09 ericm Exp $ + * RCS: @(#) $Id: tkCursor.c,v 1.7 2001/08/15 15:44:36 dkf Exp $ */ #include "tkPort.h" @@ -58,7 +58,7 @@ static void InitCursorObj _ANSI_ARGS_((Tcl_Obj *objPtr)); * option is set. */ -static Tcl_ObjType cursorObjType = { +Tcl_ObjType tkCursorObjType = { "cursor", /* name */ FreeCursorObjProc, /* freeIntRepProc */ DupCursorObjProc, /* dupIntRepProc */ @@ -101,7 +101,7 @@ Tk_AllocCursorFromObj(interp, tkwin, objPtr) { TkCursor *cursorPtr; - if (objPtr->typePtr != &cursorObjType) { + if (objPtr->typePtr != &tkCursorObjType) { InitCursorObj(objPtr); } cursorPtr = (TkCursor *) objPtr->internalRep.twoPtrValue.ptr1; @@ -694,7 +694,7 @@ GetCursorFromObj(tkwin, objPtr) Tcl_HashEntry *hashPtr; TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr; - if (objPtr->typePtr != &cursorObjType) { + if (objPtr->typePtr != &tkCursorObjType) { InitCursorObj(objPtr); } @@ -770,7 +770,7 @@ InitCursorObj(objPtr) if ((typePtr != NULL) && (typePtr->freeIntRepProc != NULL)) { (*typePtr->freeIntRepProc)(objPtr); } - objPtr->typePtr = &cursorObjType; + objPtr->typePtr = &tkCursorObjType; objPtr->internalRep.twoPtrValue.ptr1 = (VOID *) NULL; } |