summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-05-22 00:22:41 (GMT)
committerhobbs <hobbs>2001-05-22 00:22:41 (GMT)
commit8b6e69e2aee288cb8f4bba2cc1c44342d1fd2703 (patch)
treed1a8b04bbffe2ea1ead687a150c9cead57ae7b8c /generic
parent29e6415ec425f744f1595e852af0c922a09258bb (diff)
downloadtk-8b6e69e2aee288cb8f4bba2cc1c44342d1fd2703.zip
tk-8b6e69e2aee288cb8f4bba2cc1c44342d1fd2703.tar.gz
tk-8b6e69e2aee288cb8f4bba2cc1c44342d1fd2703.tar.bz2
* doc/TkInitStubs.3:
* generic/tk.h: * generic/tkStubLib.c: CONST'ified Tk_InitStubs to match CONST changes to Tcl_PkgRequireEx.
Diffstat (limited to 'generic')
-rw-r--r--generic/tk.h4
-rw-r--r--generic/tkStubLib.c6
2 files changed, 5 insertions, 5 deletions
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);