| | 1 | /#include "tkint.h"/a\ |
| | 2 | #define TK_EXTENDED\ |
| | 3 | #ifdef TK_EXTENDED\ |
| | 4 | # include "tclxtend.h"\ |
| | 5 | Tcl_Interp *tk_mainInterp; /* Need to process signals */\ |
| | 6 | #endif |
| | 7 | |
| | 8 | /^char initCmd/c\ |
| | 9 | #ifdef TK_EXTENDED\ |
| | 10 | char initCmd[] = "load wishx.tcl";\ |
| | 11 | #else\ |
| | 12 | char initCmd[] = "source $tk_library/wish.tcl";\ |
| | 13 | #endif |
| | 14 | |
| | 15 | / interp = Tcl_CreateInterp();/c\ |
| | 16 | #ifdef TK_EXTENDED\ |
| | 17 | tk_mainInterp = interp = Tcl_CreateExtendedInterp();\ |
| | 18 | #else\ |
| | 19 | interp = Tcl_CreateInterp();\ |
| | 20 | #endif |
| | 21 | |
| | 22 | /result = Tcl_Eval(interp, initCmd/i\ |
| | 23 | #ifdef TK_EXTENDED\ |
| | 24 | tclAppName = "Wish";\ |
| | 25 | tclAppLongname = "Wish - Tk Shell";\ |
| | 26 | tclAppVersion = TK_VERSION;\ |
| | 27 | Tcl_ShellEnvInit (interp, TCLSH_ABORT_STARTUP_ERR,\ |
| | 28 | name,\ |
| | 29 | 0, NULL, /* argv var already set */\ |
| | 30 | fileName == NULL, /* interactive? */\ |
| | 31 | NULL); /* Standard default file */\ |
| | 32 | #endif |
projects / micropolis / blame_incremental