1 files changed, 21 insertions, 0 deletions
diff --git a/src/tkbltStubLib.C b/src/tkbltStubLib.C
new file mode 100644
index 0000000..b4180f3
--- /dev/null
+++ b/src/tkbltStubLib.C
@@ -0,0 +1,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;
+}