2 #include "VMDemoTkInit.h"
9 CvSize imgsize = {320, 240};
11 int TclInit(Tcl_Interp *interp, char **argv)
13 if (Tcl_Init(interp) == TCL_ERROR)
15 fprintf(stderr, "Tcl_Init failed: %s\n",
20 if (Tk_Init(interp) == TCL_ERROR)
22 fprintf(stderr, "Tk_Init failed: %s\nwwwwwwwwwwwwww\n",
31 int main(int argc, char **argv)
33 Tcl_Interp *interp= Tcl_CreateInterp();
36 printf("No interpretator\n");
40 if (VMDemoTkInit ( interp, argc, argv)) return 1;