Posted to tcl by apw at Sat Oct 13 18:02:36 GMT 2007view raw
- Index: tclOO.c
- ===================================================================
- RCS file: /cvsroot/tcl/oocore/generic/tclOO.c,v
- retrieving revision 1.26
- diff -r1.26 tclOO.c
- 1769c1769
- < result = oPtr->mapMethodNameProc(interp, oPtr, startCls,
- ---
- > result = oPtr->mapMethodNameProc(interp, oPtr, &startCls,
- 3013a3014,3021
- > void
- > Tcl_ObjectSetMapMethodNameProc(
- > Tcl_Object oPtr,
- > TclOO_MapMethodNameProc mapMethodNameProc)
- > {
- > ((Object *)oPtr)->mapMethodNameProc = mapMethodNameProc;
- > }
- >
- Index: tclOOInt.h
- ===================================================================
- RCS file: /cvsroot/tcl/oocore/generic/tclOOInt.h,v
- retrieving revision 1.13
- diff -r1.13 tclOOInt.h61c61
- < struct Class *startClsPtr, Tcl_Obj *methodObj);
- ---
- > struct Class **startClsPtrPtr, Tcl_Obj *methodObj);