diff options
Diffstat (limited to 'itcl/itk/win/winMain.c')
-rw-r--r-- | itcl/itk/win/winMain.c | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/itcl/itk/win/winMain.c b/itcl/itk/win/winMain.c index bcd32cba6b3..4ec8d1976c4 100644 --- a/itcl/itk/win/winMain.c +++ b/itcl/itk/win/winMain.c @@ -21,15 +21,8 @@ #include "itk.h" /* include tclInt.h for access to namespace API */ -#include "tclInt.h" +#include "tkInt.h" -/* - * The following declarations refer to internal Tk routines. These - * interfaces are available for use, but are not supported. - */ - -EXTERN void TkConsoleCreate(void); -EXTERN int TkConsoleInit(Tcl_Interp *interp); /* * Forward declarations for procedures defined later in this file: @@ -96,8 +89,6 @@ WinMain(hInstance, hPrevInstance, lpszCmdLine, nCmdShow) * called to attach the console to a text widget. */ - TkConsoleCreate(); - setargv(&argc, &argv); /* @@ -182,7 +173,7 @@ Tcl_AppInit(interp) * application. */ - if (TkConsoleInit(interp) == TCL_ERROR) { + if (Tk_CreateConsoleWindow(interp) == TCL_ERROR) { goto error; } |