diff options
| author | hobbs <hobbs> | 2001-05-22 00:22:41 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-05-22 00:22:41 (GMT) |
| commit | 8b6e69e2aee288cb8f4bba2cc1c44342d1fd2703 (patch) | |
| tree | d1a8b04bbffe2ea1ead687a150c9cead57ae7b8c /generic | |
| parent | 29e6415ec425f744f1595e852af0c922a09258bb (diff) | |
| download | tk-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.h | 4 | ||||
| -rw-r--r-- | generic/tkStubLib.c | 6 |
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); |