cvs.zerfleddert.de Git - micropolis/blob - src/tclx/tkucbsrc/main.sed

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

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

15 / interp = Tcl_CreateInterp();/c\

16 #ifdef TK_EXTENDED\

17 tk_mainInterp = interp = Tcl_CreateExtendedInterp();\

18 #else\

19 interp = Tcl_CreateInterp();\

20 #endif

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