diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-01-15 18:19:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-01-15 18:19:14 (GMT) |
| commit | 8403334007fc763313504fb3a46f5aa6cca41151 (patch) | |
| tree | 64b47f358bd710ee13da5ca5f49d28464823ecc8 | |
| parent | d532eeec33aab05b4b6389a55ff5898be21ef292 (diff) | |
| download | tk-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-- | ChangeLog | 6 | ||||
| -rw-r--r-- | generic/tkConsole.c | 8 |
2 files changed, 10 insertions, 4 deletions
@@ -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; |