Posted to tcl by kevin_walzer at Thu Apr 07 23:19:22 GMT 2016view pretty
#include <Windows.h> #include <shlobj.h> #include <shlwapi.h> #include <tchar.h> #include <tcl.h> #include <tk.h> int Tk_AppInit(Tcl_Interp *interp){ if (Tcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } if (Tk_Init(interp) == TCL_ERROR) { return TCL_ERROR; } Tcl_EvalFile(interp,"textsweep.tcl"); return TCL_OK; } int main(int argc, char **argv) { Tk_Main (argc, argv, Tk_AppInit); return 0; }