From 4f7bc38acccbafba6933e25dbe0cad03cff90ada Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Wed, 2 Oct 2024 11:49:12 +0000 Subject: Use version number "9.0" somewhat more in comments --- doc/clock.n | 2 +- generic/tclVar.c | 2 +- tests/tcltest.test | 2 +- tools/tcltk-man2html.tcl | 2 +- unix/tclLoadShl.c | 2 +- win/tclWinInit.c | 6 +++--- 6 files changed, 8 insertions(+), 8 deletions(-) diff --git a/doc/clock.n b/doc/clock.n index a28254e..8c71aa0 100644 --- a/doc/clock.n +++ b/doc/clock.n @@ -832,7 +832,7 @@ that give the rules for various locales. A complete list of the location names is too lengthy to be listed here. On most Tcl installations, the definitions of the locations are to be found in named files in the directory -.QW "\fI/no_backup/tools/lib/tcl8.5/clock/tzdata\fR" . +.QW "\fI/no_backup/tools/lib/tcl9.0/clock/tzdata\fR" . On some Unix systems, these files are omitted, and the definitions are instead obtained from system files in .QW "\fI/usr/share/zoneinfo\fR" , diff --git a/generic/tclVar.c b/generic/tclVar.c index 5320950..a46eb35 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -418,7 +418,7 @@ TclCleanupVar( * * This function is used to locate a variable given its name(s). It has * been mostly superseded by TclObjLookupVar, it is now only used by the - * trace code. It is kept in tcl8.5 mainly because it is in the internal + * trace code. It is kept in tcl9.0 mainly because it is in the internal * stubs table, so that some extension may be calling it. * * Results: diff --git a/tests/tcltest.test b/tests/tcltest.test index 20d75bb..59e6eb5 100644 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -353,7 +353,7 @@ set printerror [makeFile { \"Path/that/is/really/long/and/contains/no/spaces\"" ::tcltest::PrintError "a really really long string containing a \ \"Really/Long/Path/that/contains/no/spaces/and/is/longer/than/eighty/characters/to/see/what/happens\"" - ::tcltest::PrintError "Problem renaming file: error renaming \"Z:/ws/tcl8.2/win32-ix86/tests/core\" to \"Z:/ws/tcl8.2/win32-ix86/tests/movecore-core\"" + ::tcltest::PrintError "Problem renaming file: error renaming \"Z:/ws/tcl9.0/win32-ix86/tests/core\" to \"Z:/ws/tcl9.0/win32-ix86/tests/movecore-core\"" exit } printerror.tcl] diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl index 01478aa..8cc34c5 100755 --- a/tools/tcltk-man2html.tcl +++ b/tools/tcltk-man2html.tcl @@ -4,7 +4,7 @@ if {[catch {package require Tcl 8.6-} msg]} { puts stderr "ERROR: $msg" puts stderr "If running this script from 'make html', set the\ NATIVE_TCLSH environment\nvariable to point to an installed\ - tclsh8.6 (or the equivalent tclsh86.exe\non Windows)." + tclsh9.0 (or the equivalent tclsh90.exe\non Windows)." exit 1 } diff --git a/unix/tclLoadShl.c b/unix/tclLoadShl.c index 9ddfa56..d24935a 100644 --- a/unix/tclLoadShl.c +++ b/unix/tclLoadShl.c @@ -63,7 +63,7 @@ TclpDlopen( * The flags below used to be BIND_IMMEDIATE; they were changed at the * suggestion of Wolfgang Kechel (wolfgang@prs.de): "This enables * verbosity for missing symbols when loading a shared lib and allows to - * load libtk8.0.sl into tclsh8.0 without problems. In general, this + * load libtk9.0.sl into tclsh9.0 without problems. In general, this * delays resolving symbols until they are actually needed. Shared libs * do no longer need all libraries linked in when they are build." */ diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 5c8ca91..b764881 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -181,8 +181,8 @@ TclpInitLibraryPath( * * Append the value of the TCL_LIBRARY environment variable onto the path * pointer. If the env variable points to another version of tcl (e.g. - * "tcl7.6") also append the path to this version (e.g., - * "tcl7.6/../tcl8.2") + * "tcl8.6") also append the path to this version (e.g., + * "tcl8.6/../tcl9.0") * * Results: * None. @@ -208,7 +208,7 @@ AppendEnvironment( /* * The shortlib value needs to be the tail component of the lib path. For - * example, "lib/tcl8.4" -> "tcl8.4" while "usr/share/tcl8.5" -> "tcl8.5". + * example, "lib/tcl9.0" -> "tcl9.0" while "usr/share/tcl9.0" -> "tcl9.0". */ for (shortlib = (char *) &lib[strlen(lib)-1]; shortlib>lib ; shortlib--) { -- cgit v0.12