Posted to tcl by dgp at Fri Dec 12 17:54:50 GMT 2008view raw
- #undef USE_TCL_STUBS
- #include "tcl.h"
- #define USE_TK_STUBS
- #include "tk.h"
- int appInitProc(Tcl_Interp *interp) {
- return TCL_OK;
- }
- int main(int argc, char **argv) {
- Tcl_Interp *interp = Tcl_CreateInterp();
- if (Tcl_Init(interp) == TCL_ERROR) {
- Tcl_Panic("borked Tcl install!");
- }
- #undef Tcl_InitStubs
- if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
- Tcl_Panic("Cannot init Tcl stubs!");
- }
- if (Tk_InitStubs(interp, TK_VERSION, 0) == NULL) {
- Tcl_Panic("Cannot find Tk!");
- }
- Tk_MainEx(argc, argv, appInitProc, interp);
- }