C++ (Cpp) TOP_CB Examples

Example #1

File: tclOOBasic.c Project: 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]);
}

Example #2

File: itcl2TclOO.c Project: FreddieAkeroyd/TkTclTix

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