]> git.zerfleddert.de Git - micropolis/blame_incremental - src/tclx/tkucbsrc/main.sed
XINCLUDE: use /usr/X11R6/include everywhere
[micropolis] / src / tclx / tkucbsrc / main.sed
... / ...
CommitLineData
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\
10char initCmd[] = "load wishx.tcl";\
11#else\
12char 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
Impressum, Datenschutz