File kitsh/buildsrc/kitsh-0.0/wish.c artifact 59698e12d8 part of check-in 97a1e6339f
#include <tk.h> int Tcl_AppInit(Tcl_Interp *interp) { int tcl_ret; tcl_ret = Tcl_Init(interp); if (tcl_ret == TCL_ERROR) { return(tcl_ret); } tcl_ret = Tk_Init(interp); if (tcl_ret == TCL_ERROR) { return(tcl_ret); } #ifdef _WIN32 tcl_ret = Tk_CreateConsoleWindow(interp); if (tcl_ret == TCL_ERROR) { return(tcl_ret); } #endif return(TCL_OK); } int main(int argc, char **argv) { Tk_Main(argc, argv, Tcl_AppInit); return(1); }