Posted to tcl by apw at Wed Aug 15 17:02:30 GMT 2007view raw
- in tclOOMethod.c
- InvokeProcedureMethod:
- if (pmPtr->preCallProc != NULL) {
- int isFinished;
- result = pmPtr->preCallProc(pmPtr->clientData, interp, context,
- (Tcl_CallFrame *) fdPtr->framePtr, &isFinished);
- if (isFinished || result != TCL_OK) {
- Tcl_PopCallFrame(interp);
- + TclStackFree(interp, fdPtr->framePtr);
- goto done;
- }
- }