Posted to tcl by kevin_walzer at Thu Apr 07 23:19:22 GMT 2016view raw

  1. #include <Windows.h>
  2. #include <shlobj.h>
  3. #include <shlwapi.h>
  4. #include <tchar.h>
  5. #include <tcl.h>
  6. #include <tk.h>
  7.  
  8. int Tk_AppInit(Tcl_Interp *interp){
  9.  
  10. if (Tcl_Init(interp) == TCL_ERROR) {
  11. return TCL_ERROR;
  12. }
  13. if (Tk_Init(interp) == TCL_ERROR) {
  14. return TCL_ERROR;
  15. }
  16.  
  17. Tcl_EvalFile(interp,"textsweep.tcl");
  18.  
  19. return TCL_OK;
  20. }
  21.  
  22.  
  23. int main(int argc, char **argv) {
  24. Tk_Main (argc, argv, Tk_AppInit);
  25. return 0;
  26. }