diff options
| author | dgp <dgp@users.sourceforge.net> | 2007-09-11 17:46:39 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2007-09-11 17:46:39 (GMT) |
| commit | e125b9425935c29a2a759b69e4146adbc012a183 (patch) | |
| tree | 75d59a4d6a8149488a33a415ec1c3b00bd2fe795 /generic | |
| parent | 9cf320faf7fab53a527586ae783d3239e11a2599 (diff) | |
| download | tk-e125b9425935c29a2a759b69e4146adbc012a183.zip tk-e125b9425935c29a2a759b69e4146adbc012a183.tar.gz tk-e125b9425935c29a2a759b69e4146adbc012a183.tar.bz2 | |
* generic/tkConsole.c: Revised calls to Tcl_InitStubs() and
* generic/tkMain.c: [package require Tcl] so that Tk Says What
* generic/tkWindow.c: It Means using the new facilties of [package]
* library/tk.tcl: in Tcl 8.5 about what version(s) of Tcl it
* unix/Makefile.in: is willing to work with. [Bug 1578344].
* win/Makefile.in:
* win/makefile.vc:
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tkConsole.c | 4 | ||||
| -rw-r--r-- | generic/tkMain.c | 4 | ||||
| -rw-r--r-- | generic/tkWindow.c | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/generic/tkConsole.c b/generic/tkConsole.c index 1996825..f5969ee 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.32 2007/09/10 13:35:42 dgp Exp $ + * RCS: @(#) $Id: tkConsole.c,v 1.33 2007/09/11 17:46:41 dgp Exp $ */ #include "tk.h" @@ -233,7 +233,7 @@ Tk_InitConsoleChannels( * only an issue when Tk is loaded dynamically. */ - if (Tcl_InitStubs(interp, TCL_VERSION, 1) == NULL) { + if (Tcl_InitStubs(interp, TCL_PATCH_LEVEL, 0) == NULL) { return; } diff --git a/generic/tkMain.c b/generic/tkMain.c index 3f15415..19ec30a 100644 --- a/generic/tkMain.c +++ b/generic/tkMain.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMain.c,v 1.25 2007/09/10 13:35:42 dgp Exp $ + * RCS: @(#) $Id: tkMain.c,v 1.26 2007/09/11 17:46:41 dgp Exp $ */ #include <ctype.h> @@ -110,7 +110,7 @@ Tk_MainEx( * only an issue when Tk is loaded dynamically. */ - if (Tcl_InitStubs(interp, TCL_VERSION, 1) == NULL) { + if (Tcl_InitStubs(interp, TCL_PATCH_LEVEL, 0) == NULL) { abort(); } diff --git a/generic/tkWindow.c b/generic/tkWindow.c index 541b533..bda5079 100644 --- a/generic/tkWindow.c +++ b/generic/tkWindow.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWindow.c,v 1.83 2007/09/10 13:35:42 dgp Exp $ + * RCS: @(#) $Id: tkWindow.c,v 1.84 2007/09/11 17:46:41 dgp Exp $ */ #include "tkInt.h" @@ -2948,7 +2948,7 @@ Initialize( * only an issue when Tk is loaded dynamically. */ - if (Tcl_InitStubs(interp, TCL_VERSION, 1) == NULL) { + if (Tcl_InitStubs(interp, TCL_PATCH_LEVEL, 0) == NULL) { return TCL_ERROR; } |