summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-01-15 18:19:14 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-01-15 18:19:14 (GMT)
commit8403334007fc763313504fb3a46f5aa6cca41151 (patch)
tree64b47f358bd710ee13da5ca5f49d28464823ecc8
parentd532eeec33aab05b4b6389a55ff5898be21ef292 (diff)
downloadtk-8403334007fc763313504fb3a46f5aa6cca41151.zip
tk-8403334007fc763313504fb3a46f5aa6cca41151.tar.gz
tk-8403334007fc763313504fb3a46f5aa6cca41151.tar.bz2
* Updated Tk's console to CONSTified channel driver interface.
[Tcl Patch 503565, Tk Patch 503983]
-rw-r--r--ChangeLog6
-rw-r--r--generic/tkConsole.c8
2 files changed, 10 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index 7f921cf..a3ec4f1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+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]
+
2002-01-11 Mo DeJong <mdejong@users.sourceforge.net>
Use ${libdir} instead of ${exec_prefix}/lib. [Tcl bug 489370]
diff --git a/generic/tkConsole.c b/generic/tkConsole.c
index e09eefe..1a5a267 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.14 2001/11/23 02:04:44 das Exp $
+ * RCS: @(#) $Id: tkConsole.c,v 1.15 2002/01/15 18:19:14 dgp Exp $
*/
#include "tk.h"
@@ -61,7 +61,7 @@ static int InterpreterCmd _ANSI_ARGS_((ClientData clientData,
static int ConsoleInput _ANSI_ARGS_((ClientData instanceData,
char *buf, int toRead, int *errorCode));
static int ConsoleOutput _ANSI_ARGS_((ClientData instanceData,
- char *buf, int toWrite, int *errorCode));
+ CONST char *buf, int toWrite, int *errorCode));
static int ConsoleClose _ANSI_ARGS_((ClientData instanceData,
Tcl_Interp *interp));
static void ConsoleWatch _ANSI_ARGS_((ClientData instanceData,
@@ -408,7 +408,7 @@ Tk_CreateConsoleWindow(interp)
static int
ConsoleOutput(instanceData, buf, toWrite, errorCode)
ClientData instanceData; /* Indicates which device to use. */
- char *buf; /* The data buffer. */
+ CONST char *buf; /* The data buffer. */
int toWrite; /* How many bytes to write? */
int *errorCode; /* Where to store error code. */
{
@@ -778,7 +778,7 @@ TkConsolePrint(interp, devId, buffer, size)
Tcl_Interp *interp; /* Main interpreter. */
int devId; /* TCL_STDOUT for stdout, TCL_STDERR for
* stderr. */
- char *buffer; /* Text buffer. */
+ CONST char *buffer; /* Text buffer. */
long size; /* Size of text buffer. */
{
Tcl_DString command, output;