diff options
| -rw-r--r-- | doc/TkInitStubs.3 | 12 | ||||
| -rw-r--r-- | generic/tk.h | 4 | ||||
| -rw-r--r-- | generic/tkStubLib.c | 6 |
3 files changed, 11 insertions, 11 deletions
diff --git a/doc/TkInitStubs.3 b/doc/TkInitStubs.3 index fc95144..168c5a6 100644 --- a/doc/TkInitStubs.3 +++ b/doc/TkInitStubs.3 @@ -4,10 +4,10 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: TkInitStubs.3,v 1.1 1999/05/05 21:46:27 hershey Exp $ +'\" RCS: @(#) $Id: TkInitStubs.3,v 1.2 2001/05/22 00:22:41 hobbs Exp $ '\" .so man.macros -.TH Tk_InitStubs 3 8.1 Tk "Tk Library Procedures" +.TH Tk_InitStubs 3 8.4 Tk "Tk Library Procedures" .BS .SH NAME Tk_InitStubs \- initialize the Tk stubs mechanism @@ -15,7 +15,7 @@ Tk_InitStubs \- initialize the Tk stubs mechanism .nf \fB#include <tk.h>\fR .sp -char * +CONST char * \fBTk_InitStubs\fR(\fIinterp, version, exact\fR) .SH ARGUMENTS .AS Tcl_Interp *interp in @@ -55,9 +55,9 @@ Define the USE_TCL_STUBS symbol. Typically, you would include the .IP 3) 5 Link the extension with the Tcl and Tk stubs libraries instead of the standard Tcl and Tk libraries. On Unix platforms, the library -names are \fIlibtclstub8.1.a\fR and \fIlibtkstub8.1.a\fR; on Windows -platforms, the library names are -\fItclstub81.lib\fR and \fItkstub81.lib\fR. +names are \fIlibtclstub8.4.a\fR and \fIlibtkstub8.4.a\fR; on Windows +platforms, the library names are \fItclstub84.lib\fR and \fItkstub84.lib\fR +(adjust names with appropriate version number). .SH DESCRIPTION \fBTk_InitStubs\fR attempts to initialize the Tk stub table pointers and ensure that the correct version of Tk is loaded. In addition diff --git a/generic/tk.h b/generic/tk.h index a49f6cd..f8626b2 100644 --- a/generic/tk.h +++ b/generic/tk.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tk.h,v 1.54 2001/04/02 02:08:55 hobbs Exp $ + * RCS: @(#) $Id: tk.h,v 1.55 2001/05/22 00:22:41 hobbs Exp $ */ #ifndef _TK @@ -1389,7 +1389,7 @@ EXTERN void Tk_CreateOldPhotoImageFormat _ANSI_ARGS_(( #define Tk_Main(argc, argv, proc) \ Tk_MainEx(argc, argv, proc, Tcl_CreateInterp()) -char *Tk_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, char *version, int exact)); +CONST char *Tk_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, char *version, int exact)); #ifndef USE_TK_STUBS diff --git a/generic/tkStubLib.c b/generic/tkStubLib.c index 32ba177..1783e32 100644 --- a/generic/tkStubLib.c +++ b/generic/tkStubLib.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: tkStubLib.c,v 1.5 1999/05/25 01:31:06 stanton Exp $ + * RCS: @(#) $Id: tkStubLib.c,v 1.6 2001/05/22 00:22:41 hobbs Exp $ */ /* @@ -95,13 +95,13 @@ TkIntXlibStubs *tkIntXlibStubsPtr; #undef Tk_InitStubs #endif -char * +CONST char * Tk_InitStubs(interp, version, exact) Tcl_Interp *interp; char *version; int exact; { - char *actualVersion; + CONST char *actualVersion; actualVersion = Tcl_PkgRequireEx(interp, "Tk", version, exact, (ClientData *) &tkStubsPtr); |