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;
}