Hex Artifact Content

Artifact 59698e12d8c9e6878398ee126ca9058c77777ee0:


0000: 23 69 6e 63 6c 75 64 65 20 3c 74 6b 2e 68 3e 0a  #include <tk.h>.
0010: 0a 69 6e 74 20 54 63 6c 5f 41 70 70 49 6e 69 74  .int Tcl_AppInit
0020: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
0030: 65 72 70 29 20 7b 0a 09 69 6e 74 20 74 63 6c 5f  erp) {..int tcl_
0040: 72 65 74 3b 0a 0a 09 74 63 6c 5f 72 65 74 20 3d  ret;...tcl_ret =
0050: 20 54 63 6c 5f 49 6e 69 74 28 69 6e 74 65 72 70   Tcl_Init(interp
0060: 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20  );..if (tcl_ret 
0070: 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a  == TCL_ERROR) {.
0080: 09 09 72 65 74 75 72 6e 28 74 63 6c 5f 72 65 74  ..return(tcl_ret
0090: 29 3b 0a 09 7d 0a 0a 09 74 63 6c 5f 72 65 74 20  );..}...tcl_ret 
00a0: 3d 20 54 6b 5f 49 6e 69 74 28 69 6e 74 65 72 70  = Tk_Init(interp
00b0: 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20  );..if (tcl_ret 
00c0: 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a  == TCL_ERROR) {.
00d0: 09 09 72 65 74 75 72 6e 28 74 63 6c 5f 72 65 74  ..return(tcl_ret
00e0: 29 3b 0a 09 7d 0a 0a 23 69 66 64 65 66 20 5f 57  );..}..#ifdef _W
00f0: 49 4e 33 32 0a 09 74 63 6c 5f 72 65 74 20 3d 20  IN32..tcl_ret = 
0100: 54 6b 5f 43 72 65 61 74 65 43 6f 6e 73 6f 6c 65  Tk_CreateConsole
0110: 57 69 6e 64 6f 77 28 69 6e 74 65 72 70 29 3b 0a  Window(interp);.
0120: 09 69 66 20 28 74 63 6c 5f 72 65 74 20 3d 3d 20  .if (tcl_ret == 
0130: 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 09 72  TCL_ERROR) {...r
0140: 65 74 75 72 6e 28 74 63 6c 5f 72 65 74 29 3b 0a  eturn(tcl_ret);.
0150: 09 7d 0a 23 65 6e 64 69 66 0a 0a 09 72 65 74 75  .}.#endif...retu
0160: 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a 7d 0a 0a 69  rn(TCL_OK);.}..i
0170: 6e 74 20 6d 61 69 6e 28 69 6e 74 20 61 72 67 63  nt main(int argc
0180: 2c 20 63 68 61 72 20 2a 2a 61 72 67 76 29 20 7b  , char **argv) {
0190: 0a 09 54 6b 5f 4d 61 69 6e 28 61 72 67 63 2c 20  ..Tk_Main(argc, 
01a0: 61 72 67 76 2c 20 54 63 6c 5f 41 70 70 49 6e 69  argv, Tcl_AppIni
01b0: 74 29 3b 0a 0a 09 72 65 74 75 72 6e 28 31 29 3b  t);...return(1);
01c0: 0a 7d 0a                                         .}.