From 8b6e69e2aee288cb8f4bba2cc1c44342d1fd2703 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 22 May 2001 00:22:41 +0000
Subject: 	* doc/TkInitStubs.3: 	* generic/tk.h: 	*
 generic/tkStubLib.c: CONST'ified Tk_InitStubs to match CONST 	changes to
 Tcl_PkgRequireEx.

---
 doc/TkInitStubs.3   | 12 ++++++------
 generic/tk.h        |  4 ++--
 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);
-- 
cgit v0.12