diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-03 17:39:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-03 17:39:51 (GMT) |
| commit | 6ebcb1e0fd1c2fed422189bebaa7fc56a3360b38 (patch) | |
| tree | cc30cfeb5041a216446e7771e1cf6fd94434341c /generic/ttk | |
| parent | 7a10a2be2a9fe8c3432bbe4c9cddb7f9d885706b (diff) | |
| download | tk-6ebcb1e0fd1c2fed422189bebaa7fc56a3360b38.zip tk-6ebcb1e0fd1c2fed422189bebaa7fc56a3360b38.tar.gz tk-6ebcb1e0fd1c2fed422189bebaa7fc56a3360b38.tar.bz2 | |
Provide "ttk" as lower case packagename too (as well as "Ttk")
Diffstat (limited to 'generic/ttk')
| -rw-r--r-- | generic/ttk/ttkInit.c | 3 | ||||
| -rw-r--r-- | generic/ttk/ttkStubLib.c | 4 |
2 files changed, 7 insertions, 0 deletions
diff --git a/generic/ttk/ttkInit.c b/generic/ttk/ttkInit.c index 4a43253..9384be4 100644 --- a/generic/ttk/ttkInit.c +++ b/generic/ttk/ttkInit.c @@ -271,6 +271,9 @@ Ttk_Init(Tcl_Interp *interp) Ttk_PlatformInit(interp); +#ifndef TK_NO_DEPRECATED + Tcl_PkgProvideEx(interp, "ttk", TTK_PATCH_LEVEL, (void *)&ttkStubs); +#endif Tcl_PkgProvideEx(interp, "Ttk", TTK_PATCH_LEVEL, (void *)&ttkStubs); return TCL_OK; diff --git a/generic/ttk/ttkStubLib.c b/generic/ttk/ttkStubLib.c index faeabe8..3bd0baa 100644 --- a/generic/ttk/ttkStubLib.c +++ b/generic/ttk/ttkStubLib.c @@ -34,7 +34,11 @@ TtkInitializeStubs( Tcl_Interp *interp, const char *version, int epoch, int revision) { int exact = 0; +#if !defined(TK_NO_DEPRECATED) && TCL_MAJOR_VERSION < 9 const char *packageName = "Ttk"; +#else + const char *packageName = "ttk"; +#endif const char *errMsg = NULL; void *pkgClientData = NULL; const char *actualVersion = Tcl_PkgRequireEx( |