src/tkbltStubLib.C


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#ifndef USE_TCL_STUBS
#define USE_TCL_STUBS
#endif

#include <tcl.h>

void *tkbltStubsPtr;

CONST char *
Tkblt_InitStubs(Tcl_Interp *interp, CONST char *version, int exact)
{
    CONST char *result;

    result = Tcl_PkgRequireEx(interp, "tkblt", version, exact,
		(ClientData *) &tkbltStubsPtr);
    if (!result || !tkbltStubsPtr) {
        return (char *) NULL;
    }

    return result;
}