Posted to tcl by jdc at Wed Jul 10 12:51:51 GMT 2013view raw
- Tcl_FindExecutable(argv[0]);
- Tcl_Interp* ip = Tcl_CreateInterp();
- Tk_InitConsoleChannels(ip);
- if (Tcl_Init(ip) == TCL_ERROR) error...
- if (Tk_Init(ip) == TCL_ERROR) error...
- Tcl_StaticPackage(ip, "Tk", Tk_Init, Tk_SafeInit);