From 80b8a2c970400a2fd7ba59b90996211947f6752e Mon Sep 17 00:00:00 2001
From: dgp <dgp@noemail.net>
Date: Tue, 15 Jan 2002 20:48:25 +0000
Subject: 	* Updated Tk's console to CONSTified channel driver interface.
 	[Tcl Patch 503565, Tk Patch 503983]

FossilOrigin-Name: 17f3016eda1359cc976a683c7706e348a1c664d0
---
 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  <dgp@users.sourceforge.net>
 
-	* 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  <mdejong@users.sourceforge.net>
 
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 <Gestalt.h>
@@ -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