C++ (Cpp) TOP_CB示例

示例#1

文件： tclOOBasic.c 项目： ershov/tcl

static inline Tcl_Object *
AddConstructionFinalizer(
    Tcl_Interp *interp)
{
    TclNRAddCallback(interp, FinalizeConstruction, NULL, NULL, NULL, NULL);
    return (Tcl_Object *) &(TOP_CB(interp)->data[0]);
}

示例#2

文件： itcl2TclOO.c 项目： FreddieAkeroyd/TkTclTix

void *
Itcl_GetCurrentCallbackPtr(
    Tcl_Interp *interp)
{
    return TOP_CB(interp);
}