Posted to tcl by jdc at Wed Jul 10 12:51:51 GMT 2013view raw

  1. Tcl_FindExecutable(argv[0]);
  2. Tcl_Interp* ip = Tcl_CreateInterp();
  3. Tk_InitConsoleChannels(ip);
  4.  
  5.  
  6. if (Tcl_Init(ip) == TCL_ERROR) error...
  7. if (Tk_Init(ip) == TCL_ERROR) error...
  8. Tcl_StaticPackage(ip, "Tk", Tk_Init, Tk_SafeInit);