From 241081870bc482f31dfc97458b316d57feecd264 Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 15 Jan 2002 20:48:26 +0000 Subject: * Updated Tk's console to CONSTified channel driver interface. [Tcl Patch 503565, Tk Patch 503983] --- ChangeLog | 8 +++++--- generic/tkConsole.c | 5 +---- generic/tkInt.h | 6 +++--- mac/tkMacAppInit.c | 8 +------- 4 files changed, 10 insertions(+), 17 deletions(-) diff --git a/ChangeLog b/ChangeLog index a3ec4f1..ea86ca7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,8 +1,10 @@ 2002-01-04 Don Porter - * generic/tkConsole.c (ConsoleOutputProc): Updated Tk's console - to CONSTified channel driver interface. [Tcl Patch 503565, - Tk Patch 503983] + * generic/tkConsole.c (ConsoleOutputProc,TkConsolePrint): + * generic/tkInt.h (TkConsolePrint): + * mac/tkMacAppInit.c (TkConsolePrint): Updated Tk's console to + CONSTified channel driver interface. [Tcl Patch 503565, Tk Patch + 503983] 2002-01-11 Mo DeJong diff --git a/generic/tkConsole.c b/generic/tkConsole.c index 1a5a267..e51d687 100644 --- a/generic/tkConsole.c +++ b/generic/tkConsole.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkConsole.c,v 1.15 2002/01/15 18:19:14 dgp Exp $ + * RCS: @(#) $Id: tkConsole.c,v 1.16 2002/01/15 20:48:29 dgp Exp $ */ #include "tk.h" @@ -47,9 +47,6 @@ TCL_DECLARE_MUTEX(consoleMutex) * The first three will be used in the tk app shells... */ -void TkConsolePrint _ANSI_ARGS_((Tcl_Interp *interp, - int devId, char *buffer, long size)); - static int ConsoleCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int argc, char **argv)); static void ConsoleDeleteProc _ANSI_ARGS_((ClientData clientData)); diff --git a/generic/tkInt.h b/generic/tkInt.h index 440c339..c5c085d 100644 --- a/generic/tkInt.h +++ b/generic/tkInt.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: $Id: tkInt.h,v 1.40 2001/09/26 21:36:19 pspjuth Exp $ + * RCS: $Id: tkInt.h,v 1.41 2002/01/15 20:48:30 dgp Exp $ */ #ifndef _TKINT @@ -1035,8 +1035,8 @@ EXTERN int Tk_WinfoObjCmd _ANSI_ARGS_((ClientData clientData, EXTERN int Tk_WmCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int argc, char **argv)); -void TkConsolePrint _ANSI_ARGS_((Tcl_Interp *interp, - int devId, char *buffer, long size)); +EXTERN void TkConsolePrint _ANSI_ARGS_((Tcl_Interp *interp, + int devId, CONST char *buffer, long size)); EXTERN void TkEventInit _ANSI_ARGS_((void)); diff --git a/mac/tkMacAppInit.c b/mac/tkMacAppInit.c index 670e8fa..c625609 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.12 2000/02/10 08:53:06 jingham Exp $ + * RCS: @(#) $Id: tkMacAppInit.c,v 1.13 2002/01/15 20:48:30 dgp Exp $ */ #include @@ -52,12 +52,6 @@ extern char * __ttyname _ANSI_ARGS_((long fildes)); short SIOUXHandleOneEvent _ANSI_ARGS_((EventRecord *event)); /* - * Prototypes for functions from the tkConsole.c file. - */ - -EXTERN void TkConsolePrint _ANSI_ARGS_((Tcl_Interp *interp, - int devId, char *buffer, long size)); -/* * Forward declarations for procedures defined later in this file: */ -- cgit v0.12