Posted to tcl by kevin_walzer at Thu Apr 07 23:19:22 GMT 2016view raw
- #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;
- }