diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-04 11:02:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-04 11:02:32 (GMT) |
| commit | cb5c9f4f89b6e7242ba07f84e278d35f202d7edd (patch) | |
| tree | 96dc9dce0760840b34674d123d10a5d14ff148a7 /generic/tclOO.c | |
| parent | eacedab36179d8cd74e4c302cd1614dea9d38c34 (diff) | |
| parent | c47a86166324a3e2efe9359c431bb93f7519847c (diff) | |
| download | tcl-cb5c9f4f89b6e7242ba07f84e278d35f202d7edd.zip tcl-cb5c9f4f89b6e7242ba07f84e278d35f202d7edd.tar.gz tcl-cb5c9f4f89b6e7242ba07f84e278d35f202d7edd.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclOO.c')
| -rw-r--r-- | generic/tclOO.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index 0f0cc96..5f1b816 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -138,7 +138,10 @@ static const Tcl_MethodType classConstructor = { */ static const char *initScript = +#ifndef TCL_NO_DEPRECATED "package ifneeded TclOO " TCLOO_PATCHLEVEL " {# Already present, OK?};" +#endif +"package ifneeded tcl::oo " TCLOO_PATCHLEVEL " {# Already present, OK?};" "namespace eval ::oo { variable version " TCLOO_VERSION " };" "namespace eval ::oo { variable patchlevel " TCLOO_PATCHLEVEL " };"; /* "tcl_findLibrary tcloo $oo::version $oo::version" */ @@ -257,7 +260,11 @@ TclOOInit( return TCL_ERROR; } - return Tcl_PkgProvideEx(interp, "TclOO", TCLOO_PATCHLEVEL, +#ifndef TCL_NO_DEPRECATED + Tcl_PkgProvideEx(interp, "TclOO", TCLOO_PATCHLEVEL, + (void *) &tclOOStubs); +#endif + return Tcl_PkgProvideEx(interp, "tcl::oo", TCLOO_PATCHLEVEL, (void *) &tclOOStubs); } |