tkblt/src/tkbltStubLib.C


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#ifndef USE_TCL_STUBS
#define USE_TCL_STUBS
#endif

#include <tcl.h>

ClientData tkbltStubsPtr =NULL;

const char* Tkblt_InitStubs(Tcl_Interp* interp, const char* version, int exact)
{
    const char* actualVersion = 
      Tcl_PkgRequireEx(interp, "tkblt", version, exact, &tkbltStubsPtr);

    return (actualVersion && tkbltStubsPtr) ? actualVersion : NULL;
}