Searched refs:pDestroy (Results 1 – 1 of 1) sorted by relevance
1810 Tcl_Obj *pDestroy; /* Destructor script */ member1821 if( p->interp && p->pDestroy ){ in cf2Destroy()1822 int rc = Tcl_EvalObjEx(p->interp, p->pDestroy, 0); in cf2Destroy()1829 if( p->pDestroy ) Tcl_DecrRefCount(p->pDestroy); in cf2Destroy()1891 case 3: p->pDestroy = objv[i+1]; break; in test_create_function_v2()1897 if( p->pDestroy ) p->pDestroy = Tcl_DuplicateObj(p->pDestroy); in test_create_function_v2()1902 if( p->pDestroy ) Tcl_IncrRefCount(p->pDestroy); in test_create_function_v2()