summaryrefslogtreecommitdiffstats
path: root/mac
diff options
context:
space:
mode:
authorredman <redman>1999-04-28 18:18:06 (GMT)
committerredman <redman>1999-04-28 18:18:06 (GMT)
commit078cc495bf6393b45f891a351a85f1c0e6aaba45 (patch)
treeaace0c7be2665947b15b36259f712838915a9611 /mac
parent33b9462f0016ef41b6c303739ad7f53bc697430f (diff)
downloadtk-078cc495bf6393b45f891a351a85f1c0e6aaba45.zip
tk-078cc495bf6393b45f891a351a85f1c0e6aaba45.tar.gz
tk-078cc495bf6393b45f891a351a85f1c0e6aaba45.tar.bz2
Rename TkConsoleCreate_() to Tk_InitConsoleChannels() and make the
function public. Add an interp argument and init the Tcl stubs. Rename TkConsoleInit() to Tk_CreateConsoleWindow() Remove TkConsoleCreate() (no underbar)
Diffstat (limited to 'mac')
-rw-r--r--mac/tkMacAppInit.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/mac/tkMacAppInit.c b/mac/tkMacAppInit.c
index 16e83c0..43d3371 100644
--- a/mac/tkMacAppInit.c
+++ b/mac/tkMacAppInit.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkMacAppInit.c,v 1.8 1999/04/16 01:51:29 stanton Exp $
+ * RCS: @(#) $Id: tkMacAppInit.c,v 1.9 1999/04/28 18:18:07 redman Exp $
*/
#include <Gestalt.h>
@@ -54,8 +54,6 @@ short SIOUXHandleOneEvent _ANSI_ARGS_((EventRecord *event));
* Prototypes for functions from the tkConsole.c file.
*/
-EXTERN void TkConsoleCreate _ANSI_ARGS_((void));
-EXTERN int TkConsoleInit _ANSI_ARGS_((Tcl_Interp *interp));
EXTERN void TkConsolePrint _ANSI_ARGS_((Tcl_Interp *interp,
int devId, char *buffer, long size));
/*
@@ -311,7 +309,7 @@ SetupMainInterp(
if (strcmp(Tcl_GetVar(interp, "tcl_interactive", TCL_GLOBAL_ONLY), "1")
== 0) {
- if (TkConsoleInit(interp) == TCL_ERROR) {
+ if (Tk_CreateConsoleWindow(interp) == TCL_ERROR) {
goto error;
}
}