File: tkbltStubLib.C

package info (click to toggle)
tkblt 3.2.23-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, forky, sid, trixie
  • size: 2,296 kB
  • sloc: cpp: 21,742; tcl: 1,947; sh: 453; ansic: 270; makefile: 8
file content (15 lines) | stat: -rw-r--r-- 362 bytes parent folder | download | duplicates (3) 
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;
}