diff options
| author | andreas_kupries <akupries@shaw.ca> | 2006-09-22 19:02:06 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2006-09-22 19:02:06 (GMT) |
| commit | 0cbae2255aa4378510703eb4e1b6fe4aedb2e4d9 (patch) | |
| tree | 1b2453ff44144e153f91f2cd06562905db47f00f /generic/tkWindow.c | |
| parent | ec91bdeba76de4de9dd91666882eb91e3eb9f438 (diff) | |
| download | tk-0cbae2255aa4378510703eb4e1b6fe4aedb2e4d9.zip tk-0cbae2255aa4378510703eb4e1b6fe4aedb2e4d9.tar.gz tk-0cbae2255aa4378510703eb4e1b6fe4aedb2e4d9.tar.bz2 | |
* generic/tkConsole.c: TIP #268 update regarding registered package
* generic/tkMain.c: version, now using full patchlevel instead of
* generic/tkWindow.c: major.minor
* library/tk.tcl:
* unix/configure:
* unix/Makefile.in:
* unix/tcl.m4:
* win/configure:
* win/Makefile.in:
* win/makefile.vc:
* win/rules.vc:
* win/tcl.m4:
Diffstat (limited to 'generic/tkWindow.c')
| -rw-r--r-- | generic/tkWindow.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tkWindow.c b/generic/tkWindow.c index e3c5295..b73ea91 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.76 2006/09/06 22:39:28 hobbs Exp $ + * RCS: @(#) $Id: tkWindow.c,v 1.77 2006/09/22 19:02:07 andreas_kupries Exp $ */ #include "tkPort.h" @@ -956,7 +956,7 @@ TkCreateMainWindow(interp, screenName, baseName) */ Tcl_SetVar(interp, "tk_patchLevel", TK_PATCH_LEVEL, TCL_GLOBAL_ONLY); - Tcl_SetVar(interp, "tk_version", TK_VERSION, TCL_GLOBAL_ONLY); + Tcl_SetVar(interp, "tk_version", TK_VERSION, TCL_GLOBAL_ONLY); tsdPtr->numMainWindows++; return tkwin; @@ -2905,7 +2905,7 @@ Initialize(interp) * only an issue when Tk is loaded dynamically. */ - if (Tcl_InitStubs(interp, TCL_VERSION, 1) == NULL) { + if (Tcl_InitStubs(interp, TCL_PATCH_LEVEL, 1) == NULL) { return TCL_ERROR; } @@ -3135,7 +3135,7 @@ Initialize(interp) geometry = NULL; } - if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION, 1) == NULL) { + if (Tcl_PkgRequire(interp, "Tcl", TCL_PATCH_LEVEL, 1) == NULL) { code = TCL_ERROR; goto done; } @@ -3144,7 +3144,7 @@ Initialize(interp) * Provide Tk and its stub table. */ - code = Tcl_PkgProvideEx(interp, "Tk", TK_VERSION, (ClientData) &tkStubs); + code = Tcl_PkgProvideEx(interp, "Tk", TK_PATCH_LEVEL, (ClientData) &tkStubs); if (code != TCL_OK) { goto done; } else { |